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Kundenunterstützung 


Lesen Sie diese Information, bevor Sie das Siegel des Disket¬ 
tenumschlags brechen. 

Das Siegel des Diskettenumschlags zu brechen, bedeutet Ak¬ 
zeptieren der Bedingungen des A+L-Lizenzvertrages. 

Die A+L AG und deren Partner helfen Ihnen, Ihr Programm opti¬ 
mal einzusetzen. Wir empfehlen Ihnen, die folgenden Informa¬ 
tionen über Registration, Unterstützung und Ihre Rechte und 
Pflichten als Kunde durchzulesen. 

Die A+L AG und deren Partner (dort, wo Sie das Produkt ge¬ 
kauft haben) bieten Ihnen telefonische Unterstützung durch ei¬ 
nen Kundendienst. Egal wie kompliziert Ihre Frage oder Ihr Pro¬ 
blem ist, wir versuchen Ihnen rasch zu helfen. Bevor Sie jedoch 
anrufen, vergewissern Sie sich, daß Sie Ihre Registrationskarte/ 
Ihren Lizenzvertrag eingeschickt haben. Andernfalls ist die A+L 
AG davon entbunden, Ihnen Auskunft zu geben. 

Falls Probleme mit Ihrem Programm auftauchen, gehen Sie wie 
folgt vor: 

1. Versuchen Sie, das Problem mit dem Handbuch zu lösen. 

2. Rufen Sie A+L oder Ihren Händler zwischen 9 und 17 Uhr 
an. Sie sollten dann Ihre Programm-Seriennummer zur 
Hand haben. 

Der Autor steht persönlich für Nachfragen nicht zur Verfügung. 
Probleme, die auf Fehler in der Software zurückzuführen sind, 
werden jedoch schnellstmöglich an den Autor weitergeleitet. 




Beschränkte Garantie 

A+L AG garantiert, daß: 

1. das Material, Disketten und Dokumentation nicht beschä¬ 
digt sind. 

2. das Programm ordnungsgemäß auf die Disketten kopiert 
ist. 

3. die Dokumentation vollständig ist und alle Informationen 
enthält, die A+L AG für die Bedienung des Programms für 
erforderlich hält. 

4. das Programm im Prinzip so funktioniert, wie es im Hand¬ 
buch beschrieben ist. 

Falls Sie uns innert von 30 Tagen nach Auslieferung Fehler 
schriftlich melden oder uns defektes Material zustellen, steht Ih¬ 
nen im Rahmen dieser beschränkten Garantie das Recht zu, 
Disketten oder Software ersetzt zu bekommen. Legen Sie der 
schriftlichen Fehlermeldung das entsprechende Rückporto in 
Ihrer Währung bei. Das Recht auf Ersatz besteht nur, wenn wir 
im Besitz Ihres unterschriebenen Lizenzvertrages sind. Senden 
Sie diesen sowie allfällige Fehlermeldungen oder defekte 
Disketten an Ihren Händler oder an folgende Adresse: 

A+L AG 
Däderiz 61 
CH-2540 Grenchen 
Schweiz 

A+L AG haftet nicht für direkte oder indirekte Schäden. 

A+L AG lehnt jede Art von Haftung oder stillschweigender Ga¬ 
rantie ab, insbesondere, daß sich die Produkte von A+L AG für 
einen ganz bestimmten Zweck eignen. A+L AG beschränkt ihre 



Garantie auf das Ersetzen defekter Disketten und Programme. 

Entsprechend obenstehender Angaben tragen Sie als Anwen¬ 
der die Verantwortung, mit Ihrem Programm sorgfältig 
umzugehen, und damit auch die Kosten mutwilliger Beschädi¬ 
gungen und Fehler außerhalb der oben genannten Beschrän¬ 
kungen. 

Anwenderlizenz 

A+L AG behält sich alle Rechte für ihre Programme vor. Jedes 
Programm fällt unter diesen Lizenzvertrag. Ein entsprechendes 
Vergehen wird geahndet. 

1. Erlaubter Gebrauch: 

Das Programm darf nur auf einem einzigen Computer mit ei¬ 
nem einzigen Bildschirm verwendet werden. Sie dürfen eine 
oder mehrere Kopien dieses Programms hersteilen, damit Sie 
über ausreichend Kopiedisketten verfügen, falls Ihre Arbeitsdis¬ 
ketten zerstört werden. Dazu dürfen Sie eine und nur eine Ko¬ 
pie des Programms auf Ihrer Harddisk machen. 

2. Unerlaubter Gebrauch: 

Ohne ausdrückliche schriftliche Bewilligung der A+L AG dürfen 
Sie folgendes nicht tun: 

- Das Programm in Verbindung mit mehr als einem Compu¬ 
ter gleichzeitig verwenden. 

- Das Programm, Kopien davon oder dessen Dokumenta¬ 
tion an jemand anderen verkaufen. 

- Erstellen von Kopien des Programms, der Dokumentation 
oder von Disketten, ausgenommen derjenigen Kopien, die 
in diesem Lizenzvertrag bewilligt sind. 



- Die Verwendung des Programms in einem Netzwerk, 
einem Time-Sharing System, einem interaktiven Fernseh¬ 
netzwerk, einem Mehrprozessorensystem oder einem 
Mehrplatzsystem, falls nicht eine spezielle Lizenz von A+L 
vorliegt, beziehungsweise jeder einzelne Benutzer über ei¬ 
ne eigene Lizenz mit A+L verfügt. 

- Veränderungen am Programm vornehmen. 

- Das Übertragen des Programms oder das Bewilligen einer 
Unterlizenz, Vermietung oder das Übertragen weiterer 
Rechte auf andere. 

- Eine wörtliche oder übertragene Übersetzung des Pro¬ 
gramms herstellen. 

- Anpassen des Programms an eine andere Hardware. 

- Durchführen telefonischer oder elektronischer Datenüber¬ 
tragung des Programms. 

- Vertrieb oder Vermietung des Programms an andere auf 
dauernder oder auch nur vorübergehender Basis. 

- Das Programm oder damit erzeugte Programme oder Da¬ 
ten direkt oder indirekt militärisch nutzen. 

Beendigung der Lizenz: 

Die Lizenz gilt als beendet, wenn Sie alle Disketten, Dokumen¬ 
te und Kopien aller Art zerstören. Diese Lizenz fällt ebenfalls 
dahin, wenn Sie gegen eine der oben genannten Bedingungen 
verstoßen. Sie sind in einem solchen Fall verpflichtet, alle Ihre 
Disketten, Dokumente und Kopien aller Art zu vernichten. 
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Vorwort 

Vor Ihnen liegt ein leistungsfähiger Compiler für eine der modernsten 
objektorientierten Sprachen. Oberon ist die neueste Entwicklung von 
Prof. Dr. Niklaus Wirth an der ETH Zürich. Diese Sprache entstand 
dort innerhalb eines Projekts, das sich das Ziel setzte, die Leistungsfä¬ 
higkeit der Sprache Modula-II zu vergrößern und gleichzeitig ihre 
Komplexität zu verringern. Dazu wurde Oberon um das Konzept der 
Typerweiterung ergänzt. Dadurch wird objektorientiertes Program¬ 
mieren ähnlich wie in Smalltalk oder C++ möglich, während jedoch 
die gewohnte Notation aus Modula-II und Pascal größtenteils beibe¬ 
halten wird. 

Dieser Compiler hat einige herausragende Fähigkeiten, die von ande¬ 
ren Compilern kaum erreicht werden: 

-Der Compiler ist durch das Single-Pass-Konzept sehr schnell. 
Dennoch erzeugt er durch eine sorgfältige Auswahl an 
Optimierungen kurzen und schnellen Code. 

-Die Objektdateien sind BLink-kompatibel. Dadurch sind sie 
sehr flexibel einsetzbar und die Einbindung von Routinen aus 
anderen Sprachen, wie Assembler und C, wird leicht möglich. 

- Oberonprogramme werden optimierend gelinkt. Es kommen also 
keine Prozeduren, die niemals aufgerufen werden, in das 
ausführbare Programm, so daß dieses meist recht kurz wird. Ein 
Meeres’ Oberonprogramm ist zum Beispiel weniger als ein 
halbes Kilobyte lang. 

- Durch das Setzen einer Compileroption ist es möglich, resident¬ 
fähige, reentrante Programme zu erzeugen. Der Compiler und 
alle in Oberon geschriebenen mitgelieferten Programme sind 
residentfähig und reentrant. 
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- Programme, die mit diesem Compiler entwickelt wurden, sind 
sehr sicher im Laufzeitverhalten, da der Compiler massiv 
Übeiprüfungscode einsetzt, um möglichst alle Fehler 
abzufangen. Fehler fühlen in den meisten Fällen nicht zur 
"Guru-Meditation", sondern werden durch das Laufzeitsystem 
abgefangen. 

- Um problemlos auf das Amiga-Betriebssystem und alle 
Resourcen zugreifen zu können, wurde die Sprache um 
Amiga-spezifische Typen ergänzt. 

-Es stehen viele Bibliotheksmodule zur Verfügung, und es 
werden ständig neue Module geschrieben, die dann als 
Zusatzpakete erhältlich sein werden oder auf Public Domain 
Disktten erscheinen. 

Dieser Compiler ist also ein ideales Werkzeug, um effektiv kleine und 
große Programme zu entwickeln. Durch die objektorientierten Eigen¬ 
schaften kann eine einmal aufgebaute Modulbibliothek leicht für neue 
Projekte verwendet und die früher definierten Objekte können leicht 
an die neuen Aufgaben angepasst werden. 
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Der Amiga Modula und Oberon Klub Stutt¬ 
gart (AMOK): 

Um mit einem Compiler effektiv arbeiten zu können ist es von Vorteil, 
wenn man auf eine große Modulbibliothek zurückgreifen kann, da 
man sich dann eine Menge Entwicklungsarbeit ersparen kann. Zudem 
können Beispielprogramme vielen bei der Lösung von Problemen 
helfen. 

Der Amiga Modula und Oberon Klub Stuttgart (AMOK) hat sich zum 
Ziel gesetzt, die Verbreitung der Sprachen Oberon und Modula zu 
unterstützen. Diese Sprachen haben den großen Vorteil, daß größere 
Programmprojekte durch Verwendung einer Modulbibliothek sehr viel 
einfacher realisierbar werden. AMOK ist ein Zusammenschluß von 6 
Programmierern, die dies im Sommer 1988 erkannt haben und so die 
AMOK PD-Diskettenserie gegründet haben. Sie enthielt zunächst nur 
Programme und Module der Klubmitglieder. Unterdessen haben je¬ 
doch auch viele außenstehende Programmierer ihre Module und Pro¬ 
gramme freigegeben und uns zur Veröffentlichung überlassen. Dabei 
legt AMOK großen Wert auf die Qualität und Korrektheit (nicht unbe¬ 
dingt die Komplexität) der Module und veröffentlicht nur einen Teil 
des eingeschickten Materials. 

Unterdessen hat sich eine mehrere Megabyte umfassende Bibliothek 
von Modula- und Oberon-Modulen angesammelt, die jedem zur Ver¬ 
fügung steht. Für viele Probleme können Lösungen auf den AMOK 
Disketten gefunden werden. 

Um diese Idee auch weiter bestehen zu lassen, sind wir natürlich auf 
die Einsendung von Modulen und Programmen angewiesen. Wer also 
ein Modul geschrieben hat, von dem er denkt, daß es auch anderen 
von Nutzen sein kann, sollte es allen zur Verfügung stellen. Dadurch 
macht man sich nicht nur einen guten Namen in der Programmierer¬ 
szene, sondern kann auch Kontakte zu anderen Programmierern knüp¬ 
fen und so von der Veröffentlichung profitieren. Natürlich ist auch die 
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Veröffentlichung von sogenannter Shareware möglich, die dem Autor 
einen kleinen Nebenverdienst einbringen kann. 

Die AMOK-Disketten können bei allen guten PD-Vertrieben und bei 
der A+L AG bezogen werden. Die Klubmitglieder freuen sich immer 
auf neue Programme und Module. AMOK-Mitglieder sind: 

Nicolas Benezan 
Postwiesenstr. 2 
7000 Stuttgart 60 

Kai Bolay 
Hoffmannstr. 168 
7250 Leonberg 

Pit Burkhardt 
Stettiner-Str. 25 
7030 Böblingen 

Michael Frieß 
Mühlhaldenweg 16 
7035 Waldenbuch 

Bernd Kirschner 
Gottlob-Grotz-Str. 24 
7120 Bietigheim-Bissingen 

Fridtjof Siebert 
Nobileweg 67 
7000 Stuttgart 40 

Dabei sollten die Einsendungen möglichst auf alle Mitglieder verteilt 
werden, um den Arbeits- und Zeitaufwand des einzelnen gering zu 
halten. Wir sind alles 'nebenberufliche’ AMOKler, die ihre Freizeit 
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und damit einen Teil der Zeit, in der sie sonst programmieren würden, 
für AMOK opfern. Wir geben keine telefonischen Auskünfte. 

Wir können nicht garantieren, daß wir jeden Brief beantworten. Dieje¬ 
nigen Briefe werden meist bevorzugt, die ausreichend Rückporto 
enthalten. Da wir unsere Disketten nicht kommerziell vertreiben, sind 
wir auf Spenden angewiesen. 
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1. Das erste Oberon-Programm 

Dieses Kapitel ist für all diejenigen, die es nicht abwarten können, 
diese Anleitung vollständig zu lesen, bevor sie ihr erstes Programm 
schreiben. Wer gleich mit einem kleinen Programm anfangen möchte, 
sollte hier weiterlesen. Geduldigere können dieses Kapitel 
überspringen und in Ruhe mit der Installation (2. Kapitel) beginnen. 

Wer zwei Diskettenlaufwerke besitzt, sollte die erste und die zweite 
Oberon-Diskette einlegen. Wer nur ein Laufwerk hat, muß im 
folgenden öfters die Disketten wechseln. 

Zunächst muß Quicklnstall von der ersten Diskette ausgeführt 
werden. Quicklnstall kann einfach durch Doppelklick von der 
Workbench gestartet werden. Es führt den Befehl "ASSIGN 
OBERON: Oberon!:" aus und kopiert die arp.library (VI.3) in das 
LIBS-Directory der Workbench-Diskette. Es sollten daher noch etwa 
17K Speicher auf der Workbench zur Verfügung stehen. 

Nun kann der Editor OEd von der ersten Diskette durch einen 
Doppelklick aus der Workbench gestartet werden. Wer schon einmal 
mit einem Texteditor gearbeitet hat, wird in der Bedienung kaum 
Probleme haben. Nun kann ein Programm eingegeben werden, wie 
z.B. folgendes ’Hello World’-Demo: 

MODULE Hello; 

IMPORT io; 

BEGIN 

io.WriteString("Hello World!"); io.WriteLn; 

END Hello. 

Dieses Programm sollte nun gespeichert werden. Dazu wählt man im 
Projekt-Menü den Menüpunkt ’Save As’ und gibt anstelle des 
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"unnamed" den Namen "RAM:Hello.mod" ein. Durch Klick auf ’OK’ 
wird der Text gespeichert. Nun kann der Editor durch einen Klick auf 
das CLOSE-Gadget verlassen werden. 

Von der Workbench aus sollte man sich nun den Inhalt der RAM-Disk 
ansehen. Dort müßte ein Texticon mit dem Namen Hello.mod 
erscheinen. Das Windmühlen-Icon mit dem Namen ’OBERON’ auf 
der ersten Oberon-Diskette ist der Compiler. Wird dieser einmal 
angeklickt und der Text in der RAM-Disk bei gedrückter Shift-Taste 
doppelgeklickt, beginnt der Compiler seine Arbeit und übersetzt den 
Text. 

Um die erzeugten Dateien zu sehen, muß das Fenster der RAM-Disk 
geschlossen und wieder geöffnet werden. Es enthält nun zusätzlich die 
Dateien "Hello.sym" und "Hello.obj”. Letztere wird einfach durch 
einen Doppelklick in ein ausführbares Programm umgewandelt. 

Nochmaliges Schließen und Öffnen des RAM-Disk-Fensters zeigt, 
daß 3 neue Dateien erzeugt wurden: "Hello.lnk", "Hello.wth" und 
"Hello". Nur die letzte interessiert uns im Augenblick. Sie ist das 
ausführbare Programm und kann durch Doppelklick gestartet werden. 

Wie man sieht, ist das Erstellen von Programmen sehr einfach. Die 
Funktion der erzeugten Dateien wird in den folgenden Kapiteln noch 
genau erklärt. 
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2. Installation: 

Um diesen Compiler sinnvoll benutzen zu können, sollte man einen 
Amiga mit mindestens 1 MByte Speicher haben. Mehr Speicher kann 
jedoch niemals schaden. 2 Diskettenstationen werden empfohlen, eine 
ist jedoch ausreichend. Wer jemals mit einer Harddisk gearbeitet hat, 
wird diese auch nie wieder missen wollen. 

Vor der Installation des Compilers sollten zunächst Sicherheitskopien 
der Disketten hergestellt und die Originaldisketten an einen sicheren 
Platz gebracht werden. 

Installation auf Harddisk: 

Zunächst sollte ein neues Directory erzeugt werden, das sinnvoller¬ 
weise den Namen Oberon bekommt. In dieses Directory müssen fol¬ 
gende Dateien und Directories von der ersten Oberon-Diskette kopiert 
werden: 

- BLink (hat kein Icon) 

- Fehler-Meldungen 

- ModToDef 

- Oberon 
-OEd 
-OErr 

- OLink 
-Path 

- Das Directory Icons mitsamt seinem Inhalt 

Zudem muß die arp.library aus dem libs-Directory dieser Diskette 
nach LIBS: kopiert werden, wenn man ARP noch nicht installiert hat. 
Die srStartup-Sequence muß um folgende 2 Zeilen erweitert werden: 


ASSIGN OBERON: DHx.Oberon 
PATH OBERON: ADD 
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Die erste Zeile teilt dem Compiler, Linker etc. mit, wo die Oberon- 
Dateien zu suchen sind. Die zweite Zeile ermöglicht das Starten des 
Compilers vom CLI aus, ohne den Pfad jedesmal angeben zu müssen. 
Diese Zeile muß dann auch in die Datei s:CLI-Startup übernommen 
werden. 

Wer ausreichend Speicher hat, kann den Compiler und den Linker 
resident machen. Dann müssen die Programme beim Starten vom CLI 
aus nicht mehr nachgeladen werden. Wer die ARP-Shell installiert hat, 
erweitert die Startup-Sequence um folgende Zeilen: 

ARES OBERON 
ARES OLINK 

Wer Arp nicht verwendet, kann auch die Befehle der Workbench 1.3 
benutzen: 

RESIDENT OBERON:OBERON 
RESIDENT OBERON:OLINK 

Nun müssen noch die Objekt- und Symboldateien von der zweiten 
Diskette in dieses Directory kopiert werden. Dazu können einfach die 
beiden Directories "obj" und "sym" in das Oberon-Directory kopiert 
werden. 

Zum Schluß muß dem Compiler noch mitgeteilt werden, wo er die 
Objekt- und Symboldateien suchen soll. Dies steht in der Textdatei 
OBERON:Path. Es reicht, wenn diese Datei eine Zeile mit dem Inhalt 
"OBERON:" enthält. Wer die Objekt- und Symboldateien auch in an¬ 
deren Directories speichert, sollte deren Pfade auch in die Pfaddatei 
eintragen. Die Datei kann mit jedem ASCII-Editor (z.Bsp. OEd) edi¬ 
tiert werden. Jede Zeile sollte einen Pfad enthalten. Beispiel: 


OBERON: 

DFO: 
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Installation mit 2 Diskettenlaufwerken: 

Für jemanden, der zwei freie Diskettenlaufwerke besitzt, ist die Instal¬ 
lation sehr einfach. Er erweitert lediglich seine Startup-Sequence um 
folgende 2 Zeilen: 

ASSIGN OBERON: Oberon_Diskl: 

PATH OBERON: ADD 

Die erste Zeile kann dabei weggelassen werden, wenn man die erste 
Oberon-Diskette mittels "RELABEL Oberon_Diskl: OBERON" oder 
mit Rename von der Workbench umbenennt. Die zweite Zeile ist nur 
nötig, wenn man vom CLI aus arbeiten möchte. 

Die Datei OBERON:Path muß wie bei der Installation auf Harddisk 
alle Pfade enthalten, in denen sich die Objekt und Symboldateien 
befinden. Dies ist zunächst nur die zweite Diskette. Es reicht hier also 
die Zeile "Oberon_Disk2:". 

Installation mit einem freien Diskettenlaufwerk: 

Etwas schwieriger wird die Installation, wenn nur eine Diskettensta¬ 
tion zur Verfügung steht, da man entweder keine zweite hat, oder ger¬ 
ne die Workbench-Diskette ständig in einem Laufwerk hätte. Dazu 
muß man sich zunächst etwas Platz auf der ersten Oberon-Diskette 
schaffen. Es können, bis auf die folgenden, die Dateien gelöscht 
werden: 

- BLink (hat kein Icon) 

- Fehler-Meldungen 

- ModToDef (kann evtl, auch gelöscht werden) 

-Oberon 

-OEd 

-OErr 

- OLink 
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-Path 

- Directory Icons mitsamt seinem Inhalt (nur nötig, wenn man von 
der Workbench arbeiten möchte) 

Auf der Diskette sollten nun 2 Unterdirectories mit den Namen "obj" 
und "sym" erzeugt werden. In diese Directories sollten alle oft benö¬ 
tigten Objekt- und Symboldateien der zweiten Diskette kopiert 
werden. Es zeigt sich normalerweise erst mit der Zeit, welche Dateien 
besonders oft benötigt werden. Dies hängt stark davon ab, was für 
Programme man schreibt. Folgende Objekt- und Symboldateien wer¬ 
den im Allgemeinen seltener benutzt: 


ARP 

AVL 

Beep 

BootBlock 

Clipboard 

DiskFont 

Display 

Expansion 

GamePort 

Icon 

Keyboard 

Layers 

Lists 

Mouse 

Narrator 

Parallel 

Printer 

Resources 

Serial 

TrackDisk 

Translator 


Die entsprechenden Dateien mit der Endung .obj, .objs oder .sym 
brauchen also nicht auf die Diskette kopiert zu werden. Wird das klei¬ 
ne Datenmodell nicht verwendet, sind die Dateien mit der Endung 
.objs nicht nötig. Zusätzlich können alle Icons der Dateien entfernt 
werden, da sie normalerweise nicht benötigt werden. 

Wie bei der Installation mit zwei Laufwerken sollte die Startup- 
Sequence um folgende 2 Zeilen erweitert werden: 

ASSIGN OBERON: Oberon_Disk 1: 

PATH OBERON: ADD 

Die erste Zeile kann auch hier weggelassen werden, wenn man die 
Diskette in "OBERON" umbenennt und die zweite Zeile ist nur nötig, 
wenn man mit dem CLI arbeiten möchte. ( 
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In die Pfad-Datei sollte als erster Pfad "OBERON:" eingetragen 
werden. Da sich in diesem Pfad jedoch nicht alle Objekt- und Symbol- 
dateien befinden, da manche gelöscht wurden, sollte als zweiter Pfad 
noch die zweite Oberon-Diskette angegeben werden, also 
"Oberon_Disk2:". Wenn die gelöschten Dateien dann wirklich einmal 
benötigt werden, ist ein Diskettenwechsel nötig. 
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3. Der Editor OEd: 

Dieser Editor wurde speziell für diesen und mit diesem Compiler ent¬ 
wickelt und unterstützt besonders die Entwicklung von Oberonpro¬ 
gram en. Er kann leicht mit der Maus bedient werden, erlaubt das 
gleichzeitige Bearbeiten mehrere Texte, enthält einen Oberon-Syntax- 
checker, erlaubt das Starten von Compiler, Linker und compiliertem 
Programm und kann die Fehlermeldungen des Compilers anzeigen. 

Starten von OEd: 

Gestartet wird OEd einfach durch Doppelklick auf sein Icon oder 
durch Eingabe von "OEd" im CLI. Werden Argumente übergeben, 
oder wurden von der Workbench zuvor Texte angeklickt und OEd mit 
gedrückter Shift-Taste doppelgeklickt, dann werden die angewählten 
Texte automatisch in jeweils ein Fenster geladen. 

Beim Start vom CLI aus können eine ganze Reihe an Argumente über¬ 
geben werden. 

Aufruf: 

OEd {-{ilslt#lx#ly#lw#lh#ld#ll}} {<Text>} 

Dabei steht das ’#’ für eine Dezimalahl. Die Optionen haben fogende 
Bedeutung: 

-i Icons erzeugen 

-s OEd soll eigenen Screen öffnen 

-t# Tabulatorbreite setzen. Voreingestellt ist 2 

-x#,-y# x- und y-Position der OEd-Fenster 

-w#,-h# Breite und Höhe der OEd-Fenster 

-d# Tiefe des OEd-Screens. Voreingestellt ist 2 

-1 Interlace-Screen öffnen 
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Beispiel: 

OEd -sy 11 d 1 Test.mod 

Hier öffnet OEd das Textfenster mit dem Quelltext "Test.mod" auf ei¬ 
nem zweifarbigen Screen direkt unter der Screen-Titelzeile. 

Wird OEd von der Workbench gestartet, können diese Voreinstellun¬ 
gen mit Hilfe der Tooltypes übergeben werden. Dazu klickt man auf 
das OEd-Icon und wählt Tnfo’ aus dem Workbench-Menü. Im Tool- 
type-Gadget können nun neue Werte für die Fenstergröße, Tabulator¬ 
weite etc. angegeben werden. 

Die Titelzeile des OEd-Fenster dient als Editor-Statuszeile. Sie zeigt 
wichtige Informationen, wie Fehlermeldungen etc. an. Normalerweise 
enthält sie in etwa folgendes: 

col: 024 line: 0007 of 0219 * file: Test.mod 

Dabei ist die Zahl hinter "col:" die Spalte (hier 24) und die Zahl hinter 
"line:" die Zeile (hier 7), in der sich der Cursor gerade befindet. Hinter 
"of steht die Gesamtzahl der Zeilen im Text (hier 219). Das Stern¬ 
chen dahinter erscheint immer dann, wenn an dem Text seit dem letz¬ 
ten Speichern oder Laden eine Änderung vorgenommen wurde. Der 
Text, der "file:" folgt, ist der Name der gerade bearbeiteten Datei 
(Test.mod). 

Die Tastenbelegung: 

Cursortasten (die Tasten mit den Pfeilen): 

Wie Sie sich vielliecht schon gedacht haben, kann man mit diesen 
Tasten den Cursor im Text bewegen. 

Zusammen mit der Alt-Taste kann man mit den horizontalen Pfeilen 
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wortweise durch den Text springen. Alt zusammen mit den vertikalen 
Pfeilen springt seitenweise durch den Text. 

Mit Shift springt man jeweils an den Anfang oder das Ende, d.h. mit 
den horizontalen Pfeilen an den Zeilenanfang bzw. an das Zeilenende 
und mit den vertikalen Pfeilen an den Textanfang bzw. an das 
Textende. 

Backspace (die Taste rechts oben mit dem Pfeil nach links): 

Mit dieser Taste kann das Zeichen links vom Cursor gelöscht werden. 
Am Zeilenanfang hat sie keine Funktion. Zusammen mit Alt wird das 
Wort links vom Cursor gelöscht. 

Del: 

Mit Del wird das Zeichen unter dem Cursor gelöscht. Shift zusammen 
mit Del gedrückt löscht die Zeile, in dem sich der Cursor befindet. 
Control (Ctrl) und Del löschen alles, was in der Zeile an und rechts 
von der Cursorposition steht. Mit Alt und Del kann das Wort rechts 
vom Cursor gelöscht werden. 

Return: 

Mit der Return-Taste wird eine Zeile unterhalb der Zeile, in der sich 
der Cursor befindet, eingefügt. Der Cursor wird in die neue Zeile un¬ 
ter das erste Zeichen der Zeile darüber gesetzt. 

TAB: 

Springt zur nächsten, oder bei gedrückter Shift-Taste zur vorigen 
Tabulator-Marke. Der Tabulatorabstand beträgt normalerweise 2. Er 
kann beim Starten von OEd mit "-t#" gesetzt werden, wobei # durch 
die gewünschte Ziffer ersetzt werden muß. 


3/3 



3. Der Editor OEd 


Control+’S’: 

Zerteilt ( splits ) die Zeile in der sich der Cursor befindet in 2 Zeilen. 
Dabei kommen alle Zeichen ab der Cursorposition in die neue Zeile. 

ControI+’J’: 

Vereinigt (joins) die Zeile, in der sich der Cursor befindet, mit der Zei¬ 
le darunter. Die beiden Zeilen werden aneinandergehängt und die un¬ 
tere Zeile wird gelöscht. Dies ist das Gegenstück zu Split 

(Control+’S’). 

ESC: 

Mit der Escape-Taste kann das aktive OEd-Fenster auf die Größe ei¬ 
nes Icons verkleinert werden (iconified). Dadurch kann man sich Platz 
schaffen, wenn man dieses Fenster eine Weile nicht benötigt, es je¬ 
doch nicht schließen möchte. Nochmaliges Drücken von ESC ver¬ 
größert das Fenster wieder auf die ursprüngliche Größe. 

Amiga + ’A’.. ’Z’: 

Die Menüpunkte (s.u.) können auch durch Drücken der rechten 
Amiga-Taste zusammen mit Buchstaben ausgewählt werden. 

Die Maus: 

Mit der Maus kann der Cursor an eine bestimmte Position im Text ge¬ 
setzt werden, indem man die gewünschte Position anfährt und kurz 
den linken Mausknopf drückt. 

Um mit der Maus einen Block zu markieren, läßt man die Maustaste 
gedrückt und fahrt soweit nach oben oder unten, bis der gewünschte 
Bereich markiert ist. Nun kann die Maustaste losgelassen werden. Ge- 
naures über die Bearbeitungsmöglichkeiten von Blöcken siehe unten. 


3/4 



3. Der Editor OEd 


Die Menüs: 

Die Menüs von OEd bieten eine Vielzahl von Möglichkeiten, den Text 
zu bearbeiten, sowie ein paar spezielle Funktionen zur Behandlung 
von Oberon-Programmen, wie Syntaxüberprüfung, Starten des Com¬ 
pilers und Anzeigen der Fehlermeldungen. 

Das Projekt Menü: 

Load (Amiga + ’L’): 

Öffnet einen File-Requester zur Eingabe des Namens einer neuen 
Datei. Wurde die alte Datei verändert und noch nicht gespeichert, er¬ 
folgt noch eine Sicherheitsabfrage, bevor die veränderte Datei ge¬ 
löscht wird. 

New Window (Amiga + ’W’): 

Öffnet ein neues (leeres) Fenster. In dieses Fenster kann dann ein wei¬ 
terer Text geladen werden. 

Save (Amiga + ’S’): 

Speichert den Text unter dem Namen, der in der Statuszeile steht. 

Save As (Amiga + ! V’): 

Öffnet einen File-Requester, damit ein Dateiname eingegeben werden 
kann, unter dem der gerade bearbeitete Text dann gespeichert wird. 

Save block (Amiga + ’O’): 

Speichert den mit der Maus oder dem Block-Menü definierten Block 
in einer Datei. Um den Dateinamen einzulesen, wird ein File- 
Requester geöffnet. 
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Insert File (Amiga + ’I’): 

Fügt eine Datei über der Zeile, in der sich der Cursor befindet, in den 
Text ein. Zusammen mit dem Menüpunkt ’Save block’ hat man so ei¬ 
ne Cut- und Paste- Funktion für Blöcke. 


( 


Quit (Amiga + ’Q’): 

Schließt das aktive Fenster. Wurde der bearbeitete Text verändert und 
nicht gespeichert, findet noch eine Sicherheitsabfrage statt. Andere 
Fenster, die mit 'New Window’ oder durch zusätzliche Argumente 
beim Start geöffnet wurden, bleiben weiterhin offen. 

About (Amiga + ’J’): 

Öffnet einen Requester mit Informationen über die Version und den 
Autor des Editors. 

Das Search Menü: 

Find (Amiga + ’F’): 

Öffnet ein Fenster mit einem String-Gadget. Dort soll ein Suchstring 
eingegeben werden. Nach der Beendigung der Eingabe mit Return 
wird der Text ausgehend von der Cursorposition nach dem String 
durchsucht. Der Cursor wird an den Anfang des gefunden Strings 
gesetzt. Ist die Suche erfolglos, blitzt der Bildschirm kurz auf. 

Next (Amiga + ’N’): 

Next sucht nach dem nächsten Vorkommen des Strings, der bei Find 
eingegeben wurde, und setzt den Cursor an dessen Anfang. Bei erfolg¬ 
loser Suche blitzt der Bildschirm kurz. 
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Previous (Amiga + ’P’): 

Durchsucht den Text rückwärts nach dem String der bei Find eingege¬ 
ben wurde und setzt den Cursor an dessen Anfang. 

FindRep (Amiga + ’G’): 

FindRep liest zunächst wie Find einen String ein. Danach wird ein 
zweiter String eingelesen, durch den der erste ersetzt werden soll. Der 
zweite String kann leer sein, um den ersten String aus dem Text zu 
löschen. 

Nach der Eingabe sucht FindRep nach dem ersten Vorkommen des er¬ 
sten Strings (Such-String) ausgehend von der Cursorposition und er¬ 
setzt ihn dort durch den zweiten Strings (Ersatz-String). 

NextRep (Amiga + ’R’): 

Sucht von der Cursorposition ausgehend nach dem nächsten Vorkom¬ 
men des Such-Strings (siehe FindRep) und ersetzt ihn durch den 
Ersatz-String. 

PrevRep (Amiga + ’H’): 

Sucht ausgehend von der Cursorposition rückwärts nach dem Such- 
String (siehe FindRep) und ersetzt ihn durch den Ersatz-String. 

Das Block Menü: 

Begin (Amiga + ’B’): 

Löscht die Markierung des evtl, zuvor definierten Blocks und setzt 
den Blockanfang auf die Zeile, in der sich der Cursor befindet. 
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End (Amiga + ’E’): 

Setzt die Blockende-Markierung auf die Zeile, in der sich der Cursor 
befindet. Der nun neu definierte Block wird hervorgehoben. Im fol¬ 
genden wird dieser Block der markierte Block genannt. Ein Block 
kann auch leicht mit der Maus markiert werden (s.o.). 

Copy (Amiga + ’Y’): 

Kopiert den markierten Block vor die Zeile, in der sich der Cursor 
befindet. Der ursprüngliche Block bleibt unverändert. 

Move (Amiga + ’M’): 

Verschiebt den markierten Block vor die Zeile, in der sich der Cursor 
befindet. Der Block wird dabei an seiner ursprünglichen Position 
gelöscht. 

Delete (Amiga + ’D’): 

Löscht den markierten Block aus dem Text. Diese Funktion kann nicht 
rückgängig gemacht werden! 

TAB right (Ctrl + ’R’): 

Verschiebt den markierten Block um eine Tabulatorweite 
(normalerweise 2) nach rechts. 

TAB left (Ctrl + ’L’): 

Verschiebt den markierten Block um eine Tabulatorweite nach links. 
Unmark (Amiga + ’U’): 

Löscht die Blockmarkierung. Es ändert sich dabei am Blockinhalt 
nichts. Er wird lediglich nicht mehr hervorgehoben gezeichnet und es 
existiert kein markierter Block mehr. 


3/8 



3. Der Editor OEd 


Das Oberon Menü: 

Die in diesem Menü enthaltenen Funktionen erleichtern das Erstellen 
von Oberonprogrammen. Sie sollten beim Editieren anderer Texte 
nicht verwendet werden. 

Parse (Amiga + ’A’): 

Der Text wird ’ geparst’, d.h. es wird geprüft, ob der Text ein Element 
der Oberon-Grammatik ist, die der Oberon-Compiler versteht 
(inklusive der Zusätze zum Original-Oberon). Enthält das Programm 
Syntaxfehler, wird der Cursor an die fehlerhafte Stelle gesetzt und ei¬ 
ne kurze Fehlermeldung in der Statuszeile angezeigt. 

Das Parsen ist sehr viel schneller als das Compilieren eines 
Programms. Es sollte daher jedesmal vor der Compilation aufgerufen 
werden. So können grobe Fehler, wie vergessene END’s oder falsch 
gesetzte Klammern, die den Compiler oft zu Folgefehlem verleiten, 
schnell gefunden werden. 

Logische Fehler, wie inkompatible Typen etc., werden beim Parsen 
nicht erkannt. 

Compile (Amiga + ’C’): 

Startet den Oberon-Compiler mit dem Namen des gerade bearbeiteten 
Textes als Argument. Der Compiler übernimmt den Text direkt aus 
dem Speicher, so deß der Text vor der Compilation nicht auf Diskette 
gespeichert werden muß. Während der Compilation kann der Text 
nicht weiter editiert werden. 

Damit diese und die nächsten vier Funktionen korrekt arbeiten 
können, müssen sich die CLI-Kommandos CD, STACK, PATH und 
RUN im C:-Directory befinden. Wer ausreichend Speicher hat, sollte 
diese Befehle resident laden. 
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Außerdem sollte das Verzeichnis T: existieren, damit OEd eine tem¬ 
poräre Datei erzeugen kann. 

Link (Amiga + ’K’): 

Startet OLink, so daß das zuvor compilierte Programm gelinkt wird. 
Execute (Amiga + ’X’): 

Startet das ausführbare (gelinkte) Programm. Dabei wird ein Start von 
dem CLI ohne Argumente simuliert. 

Next Error (Amiga + ’T’): 

Wurden bei der Compilation Fehler gefunden, können diese mit ’Next 
Error’ angesehen werden. ’Next Error’ zeigt immer den nächsten 
Fehler, der sich rechts oder unterhalb des Cursors befindet. Der Fehler 
wird in der Statuszeile angezeigt. Die Meldung ’No more Errors’ 
erscheint, wenn es unterhalb des Cursor keine weiteren Fehler gibt. 

First Error (Amiga + ’Z’): 

Springt an die Position des ersten Fehlers im Text und zeigt ihn in der 
Statuszeile an. Wurden bei der Compilation keine Fehler gefunden, 
wird die Meldung ’No Errors’ ausgegeben. 

Das Options Menü: 

Hier können die Editor-, Compiler- und Linkeroptionen eingestellt 
werden: 

Insert: 

Ist Insert angewählt, befindet sich der Editor im Einfüge-, sonst im 
Überschreib-Modus. 
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Icons: 

Ist diese Option angewählt, werden Icons erzeugt. 

StackChk, OvfIChk, RangeChk, CaseChk, ReturnChk, NilChk 
und TypeChk: 

Diese Optionen bewirken, daß der entsprechende Überprüfungscode 
beim Compilieren erzeugt wird. Genaueres dazu steht in Kapitel 8. 

SmallCode und SmallData: 

Wählen das Kleine Code- bzw. Daten-Modell. Genaueres steht auch 
hierzu in Kapitel 8. 
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4. Der Compiler Oberon: 

Das Programm ’Oberon’ ist der eigentliche Compiler. Er erledigt die 
meiste Arbeit: Er erhält die mit OEd oder einem anderen ASCII-Editor 
geschrieben Quelltexte als Eingabe. Daraus erzeugt er dann eine 
Symboldatei, die Information über alle exportierten Objekte des com- 
pilierten Moduls enthält, und eine Objektdatei, die den erzeugten 
Maschinencode, also das eigentliche Programm, enthält. 

Wurden bei der Compilation Fehler im Quelltext entdeckt, wird keine 
Symbol- und keine Objektdatei erzeugt. Stattdessen schreibt der Com¬ 
piler Informationen über die Positionen und die Nummern der Fehler¬ 
meldungen in eine Datei. 

Die Namen der verwendeten Dateien: 

Der Typ von bestimmten Dateien wird durch das Anhängen einer En¬ 
dung an den Dateinamen bestimmt. Bei diesem Oberon-System wer¬ 
den folgende Dateinamen verwendet: 


Endung 

Dateityp 

’.mod’ 

Modul- und Programm-Quelltexte. 

’.modE’ 

Fehlerdatei nach Compilation eines fehlerhaften 
Moduls 

’.def’ 

Mit dem Tool ’ModToDef’ erzeugtes Definitions¬ 
modul 

’.obj’ 

Objektdatei, von Compiler erzeugt 

’.objs’ 

Objektdatei bei Verwendung des kleinen Datenmo¬ 
dells 

’.sym’ 

Symboldatei, von Compiler erzeugt 

’.lnk’ 

Link Datei, von OLink erzeugt 

’.wth’ 

WITH-Datei für BLink, von OLink erzeugt 

ohne Endung 

Ausführbares Programm nach dem Linken mit 

OLink / BLink 
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Das Projekt-Konzept: 

Beim Entwickeln größerer Programme, die aus mehreren Modulen 
bestehen, kann die große Anzahl an Dateien ein einzelnes Verzeichnis 
schnell unübersichtlich machen. 

Um eine bessere Übersicht über ein Programmprojekt zu behalten, 
empfiehlt es sich, drei Unterverzeichnisse mit den Namen ’txt’, ’obj’ 
und ’sym’ mit dem CLI-Befehl CreateDir zu erzeugen. Wer von der 
Workbench arbeitet, kann sich das Empty-Directory seiner Work- 
bench-Diskette dreimal kopieren und entsprechend umbenennen. 

Die Quelltexte sollten nun in das ’txt’-Verzeichnis geschrieben 
werden. Bei der Compilation holt sie sich der Compiler automatisch 
von dort. Entsprechend werden die Objekt- und Symboldateien vom 
Compiler automatisch in die Unterverzeichnisse geschrieben bzw. von 
dort gelesen. 

Start des Compilers: 

Aufruf aus dem Editor: 

Im Editor kann der Compiler einfach durch Anwahl des Menüpunktes 
’Compile’ gestartet werden. Dabei muß der Quelltext zuvor gespei¬ 
chert worden sein. 

Aufruf vom CLI: 

Wer mit dem CLI arbeitet, sollte das aktive Verzeichnis mit dem CLI- 
Befehl ’CD’ zunächst auf das Verzeichnis setzen, das die Quelltexte 
oder das ’txt’-Unterverzeichnis enthält. 


Der Compiler benötigt normalerweise mehr als 4 KByte Stapel spei- 
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eher. Der Stapel sollte daher mit dem CLI-Commando ’stack’ auf 
10000 bis 20000 Bytes gesetzt werden. 

Nun kann der Compiler mit folgender Syntax gestartet werden: 

Oberon { [-svbcrntmdi] <Quelltext> } 

Quelltext ist der Text, der compiliert werden soll. Dabei kann die En¬ 
dung ’.mod’ weggelassen werden. Sie wird dann automatisch ange¬ 
hängt. Befindet sich der Quelltext in dem Unterverzeichnis mit dem 
Namen ’txt\ wird er automatisch von dort geholt. Es kann also z. B. 
statt der Zeile 

Oberon txt/Test.mod 

einfach 

Oberon Test 


geschrieben werden. 

Der Compiler kann auch mit mehreren Quelltexten gestartet werden. 
Er übersetzt sie dann nacheinander. 


Die Optionen ('[-svbcrntmdi]’) beziehen sich auf alle Quelltexte, die 
rechts von ihnen stehen. Sie haben folgende Wirkung: 


Option Wirkung 


) 


’-s’ 

’-v’ 

’-b’ 

’-c’ 

’-r* 

’-n’ 

’-t’ 


Stackkontrolle ausschalten 
Überlaufskontrolle ausschalten 
Bereichskontrolle ausschalten 
Caseindex-kontrolle ausschalten 
Returnkontrolle ausschalten 
Nil-Zeiger-Kontrolle ausschalten 
Typkontrolle ausschalten 
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’-m’ Kleines Code-Modell verwenden 
’-d’ Kleines Daten-Modell verwenen 
’-i’ Icons erzeugen 

Genaueres zu den verschiedenen Arten an Überprüfungscode und den 
verschiedenen Speichermodellen steht im Kapitel 'Besonderheiten des 
Compilers’. 

Die Optionen beziehen sich auf alle Quelltexte, die hinter der Option 
stehen. Beispiel: 

Oberon -s Progl -b Prog2 

Hier wird Progl ohne Stackkontrolle und Prog2 ohne Stackkontrolle 
und ohne Bereichskontrolle compiliert. 

Wurde der Compiler ohne Parameter gestartet, gibt er den Prompt 
’in>' aus und wartet auf die Eingabe des Quelltextnamens. Verlassen 
wird der Compiler dann einfach durch Drücken von Return. 

Aufruf von der Workbench: 

Wird der Compiler von der Workbench gestartet, müssen die Quell¬ 
texte bei gedrückter Shift-Taste angeklickt und danach der Compiler 
doppelgeklickt werden. 

Von der Workbench aus sollte der Compiler nicht ohne Parameter auf¬ 
gerufen werden, da er dann die Objekt- und Symboldateien nicht in 
das Verzeichnis schreibt, in dem sich die Quelltexte befinden, sondern 
in das Verzeichnis, in dem sich der Compiler selbst befindet. Dies ist 
meist nicht erwünscht. 

Beim Start von der Workbench aus erzeugt der Compiler automatisch 
Icons. 
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Arbeitsweise des Compilers: 

Der Compiler zeigt an, welche Dateien er einliest und welche er 
erzeugt. Dabei schreibt er ’ - <Dateiname>’ beim Einlesen einer Datei 
und ’ + <Dateiname>’ beim Erzeugen einer Datei. 

Während der Compilation werden zunächst die Symboldateien der im¬ 
portierten Module geladen. Für jedes Modul wird ’ - XXX.sym’ 
ausgeben. Ist die Importliste abgearbeitet, wird Code erzeugt. Dabei 
wird für jedes erzeugte Kilobyte ein Punkt ausgeben. 

Wird im Programm mit REAL- oder LONGREAL-Zahlen gerechnet, 
werden eventuell noch die Symboldateien der Mathematikmodule 
nachgeladen. 

Ist der Text compiliert, überprüft der Compiler, ob eine neue Symbol¬ 
datei erzeugt werden muß. Dazu liest er die eventuell schon existie¬ 
rende Symboldatei ein und vergleicht sie mit der, die er erzeugen 
würde. Wenn Unterschiede gefunden wurden, wird eine neue Symbol¬ 
datei erzeugt und als ’XXX.sym’ oder als ’sym/XXX.sym’, wenn das 
’sym’-Verzeichnis existiert, gespeichert. 

Nun wird der Code in etwa 2-8 zusätzlichen Passes optimiert. Dabei 
gibt der Compiler ’optimizing ...’ und die Zahl der wegoptimierten 
Bytes aus. Der fertig optimierte Code wird dann im Amiga- 
Objektformat als ’XXX.obj’ oder als ’obj/XXX.obj’, wenn das ’obj’- 
Verzeichnis existiert, gespeichert. 

Zum Schluß wird noch die Größe der Code-, Daten- und Variablenbe¬ 
reiche (BSS) ausgegeben. 

Werden während der Compilation Fehler gefunden, so werden diese in 
die Datei XXX.modE gespeichert. Die Fehler können dann mit den 
Programmen OEd oder OErr angesehen werden. 
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Beispiel einer Compilation: 

in> Demo 

- Demo.mod 

- OBERON:sym/Graphics.sym 

- OBERON:sym/Hardware.sym 

- OBERON:sym/Exec.sym 

- OBERON:sym/Intuition.sym 

- OBERON:sym/KeyMap.sym 

- OBERON:sym/Timer.sym 

- OBERON:sym/InputEvent.sym 

- OBERON:sym/Dos.sym 

- OBERON:sym/OberonLib.sym 
.. - sym/Demo.sym 


optimizing... 80 
optimizing... 10 
optimizing... 0 

+ obj/Demo.obj 

CODE: 2368 DATA: 0 BSS: 1760 
Hier wurde das Programm ’Demo.mod’ compiliert. 

Aufruf mit Batch-Datei: 

Um mehrere Module auf einmal zu compilieren, kann man sich eine 
Batch-Datei schreiben. Dies ist eine einfache Textdatei, in der in jeder 
Zeile der Name eines zu compilierenden Moduls steht. Diese Datei 
kann z.B. unter dem Namen ’bat’ gespeichert werden. 

Um die Module in der Batchdatei zu compilieren, ruft man den Com¬ 
piler vom CLI folgendermaßen auf: 

Oberon <bat 


Er wird also parameterlos gestartet. Der Inhalt der Batchdatei wird als 
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Eingabestrom verwendet und übergibt dem Compiler automatisch die 
Modulnamen. 
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5. Linken mit OLink und BLink: 

Die vom Compiler erzeugten Objektdateien sind Standard-Amiga- 
Objektdateien. Diese Dateien können daher mit den Standardlinkem 
ALink oder BLink zu einem ausführbaren Programm zusammenge¬ 
fügt werden. 

Der Aufruf von BLink ist jedoch nicht ganz einfach: BLink kann nur 
vom CLI benutzt werden und verlangt die komplette Liste aller Ob¬ 
jektdateien der vom Hauptmodul importierten Module. Dies ist oft 
viel Tipparbeit, und leicht wird eine Objektdatei vergessen. 

OLink ist ein Programm, das BLink automatisch mit den richtigen Pa¬ 
rametern startet. Zudem kann OLink auch von der Workbench benutzt 
werden und erzeugt Icons. 

Benutzung von OLink vom CLI: 

Aufruf: 

OLink [-bsmdi] <Objektdatei> {OBJ <file>} 

Dabei ist <Objektdatei> die Objektdatei des Hauptmoduls des 
Programms, das gelinkt werden soll. Ähnlich wie beim Compiler kann 
die Endung ’.obj’ bzw. ’.objs’ und der Pfad ’obj/’ weggelassen 
werden. So kann z.B. statt 

OLink obj/Test.obj 

einfach 

OLink Test 

geschrieben werden. 
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Die Optionen (’[-bsmdi]’) haben folgende Funktionen: 

Option Wirkung 

’-b’ Verhindert, daß BLink gestartet wird. 

’-s’ Die Optionen SMALLCODE und SMALLDATA werden 
beim Aufruf von BLink verwendet. Dadurch werden die 
Programme etwas kürzer. Der Nachteil ist, daß die 
Programme nur noch aus großen Programmblöcken 
bestehen, d.h. ein 100K großes Programm braucht in etwa 
100K durchgehenden Speicher und kann evt. nicht mehr 
geladen werden, obwohl noch genügend Speicher 
vorhanden wäre, die einzelnen Speicherblöcke jedoch zu 
klein sind. 

’-m’ Setzt die Option SMALLCODE beim Starten von BLink. 
Diese sollte bei Programmen, die mit dem kleinen Code- 
Modell compiliert wurden, gesetzt sein. Sonst werden die 
Programme länger und langsamer. 

’-d’ Diese Option muß gesetzt werden, wenn mit dem kleinen 
Daten-Modell compiliert wurde, damit die Objektdateien 
mit der Endung ’.objs’ verwendet werden. Zudem muß 
Olink hier die Größe des Speichers bestimmen, den die 
globalen Variablen belegen. 

’-i’ Icons erzeugen. 

Hinter dem Wort ’OBJ’ können noch zusätzliche Objektdateien ange¬ 
geben werden, die z.B. in Assembler geschrieben sind und von einem 
der Oberonmodule verwendet werden. OLink kann diese Dateien nor¬ 
malerweise nicht selbst finden, da in den Oberon-Objektdateien nur 
die Namen der importierten Oberonmodule stehen. 

Wird OLink ohne Parameter gestartet, erwartet es ähnlich wie der 
Compiler die Eingabe eines Dateinamens. 
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Benutzung von OLink von der Workbench aus: 

Von der Workbench aus kann OLink sehr leicht gestartet werden, in¬ 
dem man das Icon der Objektdatei des Hauptmoduls doppelklickt. Da¬ 
zu muß sich OLink im logischen Verzeichnis ’OBERON:’ befinden, 
was gewöhnlich der Fall ist. 

Arbeitsweise von OLink: 

Ist OLink gestartet, durchsucht es die Objektdatei nach Verweisen auf 
andere Module. Die Objektdateien dieser Module werden dann je¬ 
weils geladen und ebenfalls untersucht, bis keine Verweise auf neue 
Objektdateien mehr gefunden werden. 

Aus den Namen der gefundenen Objektdateien wird nun eine soge¬ 
nannte WITH-Datei erzeugt. Dies ist eine Textdatei, die BLink über¬ 
geben wird. Zusätzlich enthält sie den Namen des fertigen Programms 
und eventuell die Optionen ’SMALLCODE’ und ’SMALLDATA’. 

Beim Linken von Programmen, die mit dem kleinen Daten-Modell 
compiliert wurden, müssen zusätzlich noch die Größe und der Typ des 
Speichers der globalen Variablen bestimmt werden. Diese werden als 
Zuweisung zu Symbolen in die WITH-Datei geschrieben. 

Nachdem alle Objektdateien gefunden wurden und die WITH-Datei 
erzeugt wurde, wird nun BLink gestartet und das ausführbare Pro¬ 
gramm erzeugt. BLink muß sich dazu im Verzeichnis OBERON: 
befinden. Nun kann das fertige Programm gestartet und ausgetestet 
werden. 

OLink hat noch eine weitere Datei erzeugt, die bisher noch keine Rol¬ 
le gepielt hat: Eine Text-Datei mit der Endung ’.Ink’. Dies ist eine 
Script-Datei, die BLink mit der WITH-Datei als Parameter startet. 
Muß ein Programm, dessen Modulstruktur sich nicht verändert hat, 
d.h. dessen IMPORT-Liste gleichgeblieben ist, noch einmal gelinkt 
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werden, kann dies einfacher und schneller durch Ausführen der ’.lnk’- 
Datei geschehen: 

Von der Workbench reicht ein Doppelklick auf das Icon dieser Datei. 
Vom CL1 muß ’Execute XYZ.lnk’ oder wenn die Shell der Workbench 
1.3 verwendet wird, einfach ’XYZJnk’ eingegeben werden. 

Bei Verwendung des kleinen Datenmodells sollte die ’.lnk’-Datei 
nicht benützt werden, da sich die WITH-Datei auch bei gleicher Mo¬ 
dulstruktur ändern kann. Hier ist es am besten, OLink bei jedem Lin¬ 
ken zu starten. 

Beispiel: 

Wurde OLink mit ’OLink -s Demo.mod’ gestartet, kann die WITH- 
Datei z.B. folgendermaßen aussehen: 

FROM obj/Demo.obj 
LIBRARY 

OBERON:obj/OberonLib.obj 
OBERON:obj/Dos.obj 
OBERON:obj/Intuition.obj 
OBERON:obj/Graphics.obj 
TO Demo 
SC SD 

Dabei ist ’obj/Demo.obj’ das Hauptmodul. Die Dateien, deren Namen 
unter ’LIBRARY’ stehen, sind Bibliotheksmodule, die optimierend 
dazugelinkt werden. 

Hinter ’TO’ steht der Name des erzeugten Programms. ’SC’ und ’SD’ 
sind die Abkürzungen für die Optionen ’SMALLCODE’ und 
’SMALLDATA’. 
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Die erzeugte Link-Datei sieht folgendermaßen aus: 

I 

OBERON:BLink WITH Demo.wth 

Sie ist, wie man sieht, sehr kurz. Wird diese Datei ausgeführt, so wird 
BLink direkt gestartet, ohne daß OLink noch einmal nach den Objekt¬ 
dateien suchen muß. 

Die Ausgabe von OLink sieht folgendermaßen aus: 
in> Demo 

' - obj/Demo.obj 

- OBERON:obj/OberonLib.obj 

- OBERON:obj/Dos.obj 

- OBERON:obj/Intuition.obj 

- OBERON:obj/Graphics.obj 
+ Demo.wth 

+ Demo.lnk 

Blink - Version 6.7-15 October 1986 

Copyright © 1986 The Software Distillery. All Rights Reserved. 

235 Trillingham Lane, Cary NC 27511 - BBS: (919)-471-6436 


BLINK Complete - Maximum code size = 5096 ($000013e8) bytes 
tschüß! 

Die von BLink ausgegebende ’Maximum Code size’ gibt an, wieviel 
Speicher das Programm benötigt, wenn es in den Computer geladen 
wird. Dieser Wert ist unabhängig davon, ob OLink mit der Option ’-s’ 
gestartet wurde oder nicht. 
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6. Fehler anzeigen mit OErr: 

Traten bei der Compilation Fehler auf, können sie mit dem Hilfspro¬ 
gramm OErr angesehen werden. Dies ist nötig, wenn man einen ande¬ 
ren Editor als OEd verwendet, der keine Oberon-Fehlermeldungen an¬ 
zeigen kann. 

Es werden jeweils die Zeilennummer und die Zeile angezeigt, in der 
der Fehler festgestellt wurde. Die Position wird mit einem Pfeil (’ A ’) 
markiert. Darunter werden die Fehlernummern, gefolgt von den Feh¬ 
lermeldungen, geschrieben. 

Beispiel: 

317: Me := FindTask(NIL); 

A 

25: Bezeichner nicht definiert 
121: Bezeichner sollte Prozedur sein 

A 

70: Zu viele Parameter 

A 

76: Zugewiesener Wert hat falschen Typ 

Hier wurde in Zeile 317 vergessen, daß FindTask ein von Exec impor¬ 
tierter Bezeichner ist und nur qualifiziert verwendet werden darf. 
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7. Das Tool ModToDef: 

In Oberon gibt es keine Definitionsmodule wie in Modula-2. Stattdes- 
sen ist jedes Modul eine einzige Textdatei, die die Funktion der Defi¬ 
nition und der Implementation gleichzeitig übernimmt. Alle exportier¬ 
ten Objekte werden durch Sternchen hinter den Bezeichnern markiert. 
Dadurch wird das Schreiben von Modulen leichter und übersicht¬ 
licher. 

Es gibt jedoch auch ein paar Vorteile von Definitionsmodulen, die 
man in Oberon nicht vermissen möchte: 

- ein Definitionsmodul enthält die exportierten Bezeichner eines 
Modules sehr kompakt und übersichtlich. 

- Wenn der Modulautor seine Module anderen zur Verfügung 
stellen möchte, seinen Quelltext jedoch nicht freigeben will, 
kann er mit dem Definitionsmodul leicht jedem die Benutzung 
des Moduls ermöglichen. Zudem müssen natürlich die Symbol- 
und Objektdateien mitgeliefert werden. 

ModToDef ist ein Programm, daß aus einem Oberon-Modul ein Defi¬ 
nitionsmodul erzeugt. Die Definitionen müssen also nicht wie in 
Modula-2 von Hand geschrieben werden. Sie werden einfach aus dem 
Quelltext erzeugt. 

Aufruf vom CLI: 

Aufruf: 

ModToDef {<QuellText>} 

Es können mehrere Definitionsmodule gleichzeitig erzeugt werden, 
indem mehrere Quelltexte angegeben werden. Die Endung ’.mod’ 
kann auch hier weggelassen werden. 
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Wird kein Quelltext als Parameter übergeben, wartet ModToDef wie 
der Compiler auf die Eingabe eines Quelltextnamens. 

Aufruf von der Workbench aus: 

Von der Workbench aus kann ModToDef wie der Compiler durch An¬ 
klicken des Quelltextes und Doppelklicken von ModToDef bei ge¬ 
drückter Shift-Taste gestartet werden. 

Arbeitsweise von ModToDef: 

Zunächst wird der Quelltext eingelesen. Danach wird die Definition 
erzeugt und mit der Endung ’.def’ abgespeichert. Der Quelltext wird 
durchlaufen und nach exportierten Objekten durchsucht. Diese werden 
in die Definition geschrieben. 

Definitionen beginnen mit dem Wort 'DEFINITION’, damit man sie 
von Modulen unterscheiden kann. 

Damit ModToDef die Importliste korrekt erzeugt, müssen alle 
Module, von denen Typen in der Definition von exportierten Bezeich¬ 
nern verwendet werden, auch mit einem Sternchen markiert werden. 
Dies ist beim Compiler nicht nötig. 

Die erzeugten Definitionsmodule werden von keinem Programm 
benötigt und können auch von keinem Programm bearbeitet werden. 
Sie werden nur für die Programmierer benötigt, die damit arbeiten und 
eine kurze Übersicht über den Inhalt von Modulen brauchen. 

Beispiel: Aus folgendem Modul 

MODULE GGT; 
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PROCEDURE GGT*(a,b: INTEGER): INTEGER; 
BEGIN 
LOOP 

IF a=b THEN RETURN a 

ELSIF a>b THEN DEC(a,b) ELSE DEC(b,a) END; 
END; 

END GGT; 

END GGT. 

wird diese Definition erzeugt: 

DEFINITION GGT; 

PROCEDURE GGT(a, b: INTEGER): INTEGER; 
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8. Besonderheiten des Compilers: 

Hier werden die Unterschiede zum Oberon-Report [nw:or], Erweite¬ 
rungen der Sprache und die Bedeutung der verschiedenen Compile¬ 
roptionen beschrieben. 

Parameter von HALT(): 

Der Parameter der Standardprozedur ist eine LONGINT-Konstante. 
Sie wird beim Programmstart vom CLI als Fehlercode zurückgegeben 
(siehe Amiga-DOS Handbuch unter FAILAT). 

Dieser Wert sollte 0 sein, wenn ein Programm korrekt arbeiten konnte. 
Traten irgendwelche Fehler auf, sollte ein Wert zwischen 1 und 20 an 
HALT übergeben werden, je nach der Schwere des Fehlers. 

Beispiel: 

NEW(p); IF p=NILTHEN HALT(20) END; 

Der Nachteil von HALT() ist, daß es normalerweise keine Fehlermel¬ 
dung ausgibt, so daß man es nicht immer bemerkt, wenn ein Pro¬ 
gramm fehlgeschlagen ist. 

Speicherverwaltung: 

Diese Oberon-Implementation verwaltet den Speicher nicht über 
’Garbage-Collection’, so wie dies im Oberon-Report verlangt wird. 
Der Grund hierfür liegt im Betriebssystem Amiga-DOS, das den Spei¬ 
cher anders verwaltet. 

Dieser Compiler verwaltet den Speicher wie in Pascal mit den Stan¬ 
dardprozeduren NEW() und DISPOSE(). Dabei alloziert NEW(p) ei¬ 
nen SYSTEM.SIZE(p A ) großen Block und weist seine Adresse p zu. 
Ist nicht genügend Speicher vorhanden, wird p auf NIL gesetzt. 
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Der allozierte Speicher wird automatisch beim Beenden des Pro- ( 
gramms freigegeben, jedoch nicht schon während der Laufzeit. Wer¬ 
den große Speicherblocks nicht mehr benötigt, können sie mit der 
Standardprozedur DISPOSE(p) freigegeben werden. Dabei muß je¬ 
doch darauf geachtet werden, daß man danach nicht mehr auf diesen 
Speicher zugreift, da sonst Abstürze die Folge sein können. 

Viele Oberonprogramme können trotz der anderen Speicherverwal¬ 
tung auch unverändert auf dem Amiga laufen. Sie benötigen jedoch 
eventuell mehr Speicher. 

Neue Schlüsselwörter STRUCT, BPOINTER, 

CLOSE, AND und NOT: 

Um die Entwicklung von Oberonprogrammen zu erleichtern und den 
Zugriff auf Amiga-spezifische Datenstrukturen zu ermöglichen, wurde 
die Sprache um folgende reservierte Schlüsselworte erweiterten. Die¬ 
se dürfen nicht als Bezeichnernamen verwendet werden. 

STRUCT: 

RECORDs in Oberon enthalten immer unsichtbare Daten, in denen 
Informationen über den Typ des Records erhalten sind. Dies wirkt sich 
störend aus, wenn man auf die Datenstrukturen von Modula-2- oder ( 
C-Programmen zugreifen möchte, die keine zusätzlichen Informa¬ 
tionen enthalten. 

STRUCT kann in Typdefinitionen verwendet werden, um Verbundty¬ 
pen wie die RECORDs in Modula-II oder die Strukturen in C zu 
definieren. Die Syntax entspricht der RECORD-Definition, mit den 
Unterschieden, daß keine Basistypen angegeben werden dürfen und 
das Schlüsselwort RECORD durch STRUCT ersetzt wird. 


8/2 



8. Besonderheiten des Compilers 


Beispiel: 

TYPE 

MlnNodePtr= POINTER TO MinNode; 

MinList = STRUCT 
head: MinNodePtr; 
tail: MinNodePtr; 
tailPred : MinNodePtr; 

END; 

Dieser Typ ist 12 Bytes groß. Würde statt STRUCT RECORD 
verwendet, wäre er 16 Bytes lang und enthielte zusätzlich ein Feld für 
den Typeguard (siehe [nw:or]). 

STRUCT sollte nie dazu verwendet werden, Speicher zu sparen. Bei 
STRUCT geht die Möglichkeit, RECORDs zu erweitern, verloren. Sie 
können nur sehr viel unflexibler benutzt werden. 

BPOINTER: 

Die Dos Library des Amiga Betriebssystems, die in BCPL geschrie¬ 
ben ist, speichert Zeiger anders, als dies sonst im Amiga üblich ist. 
Daher müssen diese Zeiger gesondert behandelt werden. 

Das Schlüsselwort BPOINTER kann gleich wie POINTER verwendet 
werden. Variablen des Typs "BPOINTER TO xyz" haben folgende 
Eigenschaften: 

-Werden sie an LONGINT zugewiesen, so werden sie zuvor in 
normale Zeiger umgewandelt. Werden umgekehrt LONGINTs 
an sie zugewiesen, so werden diese vorher in BCPL-Zeiger 
umgewandelt. 

-Werden BPOINTER dereferenziert (mit " A " oder automatisch 
mit oder so werden sie zuvor in normale Zeiger 

umgewandelt. 
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BPOINTER sollten nicht auf normale RECORDs zeigen, da Typtests 
nur mit normalen Zeigern möglich sind. Diese Zeiger sollten nur beim ( 
Zugriff auf DOS-Strukturen verwendet werden, dort wo dies unbe¬ 
dingt nötig ist. Überall sonst verlangsamen und verlängern BPOINT¬ 
ER den Code, ohne irgendwelche Vorteile zu bringen. 

CLOSE: 

CLOSE leitet eine Anweisungsfolge in einem Modul ein, die beim 
Beenden des Programms aufgerufen wird. Dort sollten alle verwende¬ 
ten Resourcen freigegeben werden. 

Beispiel: 

MODULE abc; 

BEGIN 

Window := OpenWin(); 

IF Window=NILTHEN HALT(20) END; 

CLOSE 

IF Window#NIL THEN CloseWin(Window) END; 

END abc. 

So ist sichergestellt, daß das Programm das Fenster wieder schließt, 
unabhängig davon, wie es beendet wurde. ^ 

AND und NOT: 

Die Schlüsselworte AND und NOT sind Synonyme für die Operatoren 
’&’ und Sie können verwendet werden, um boolesche Ausdrücke 
leichter lesbar zu machen. 

Neue Standardbezeichner: 

Die Liste der Standardbezeichner wurde um die drei Bezeichner 
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DISPOSE, SHORTSET und LONGSET erweitert. DISPOSE ist eine 
Standardprozedur, die im Unterkapitel ’Speicherverwaltung’ genauer 
beschrieben wird. 

SHORTSET und LONGSET sind Typbezeichner für SETs mit einer 
Größe von 8 bzw. 32 Bit. Um diese SETs in SET-Ausdrücken von nor¬ 
malen SETs zu unterschieden, muß der jeweilige SET-Typbezeichner 
wie in Modula-2 vor die geschweifte Klammer geschrieben werden. 

Beispiel: 

VAR s: LONGSET; 

BEGIN 

s := LONGSET{19..29}; 

END; 

Ansonsten können diese SETs wie gewöhnliche SETs behandelt 
werden. 

Strukturierte Konstanten: 

Diesem Compiler wurde die in ähnlichen Sprachen oft vermißte Fä¬ 
higkeit gegeben, Record- und Feldkonstanten zu definieren. Dies sieht 
ähnlich wie ein Prozeduraufruf aus, wobei der Typbezeichner als Pro¬ 
zedurbezeichner dient und die Record- bzw. Feldelemente als Parame¬ 
ter übergeben werden. 

Die Elemente werden in der Reihenfolge steigender Indizes (bei 
Feldern) oder in der Reihenfolge wie Typdefinition (bei Records) 
angegeben. Bei erweiterten Records müssen zunächst die Elemente 
der Basisrecords und dann der Erweiterungen angegeben werden. 
Sind die Record- oder Feldelemente selbst Records oder Felder, müs¬ 
sen deren Elemente einzeln angegeben werden. 

Auf strukturierte Konstanten kann wie auf Variablen gleichen Typs 
zugegriffen werden, sie können jedoch nicht verändert werden. 
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Beispiel: 

MODULE Test; 

IMPORT I: Intuition; 

CONST 

nw = I.NewWindow(0,0,500,200,1,0,LONGSET{},LONGSET{}, 
NIL,NIL,NIL,NIL,NIL, 

0,0,0,0,{l.wbenchScreen}); 


VAR 

NW: I.NewWindow; 
w: I.WindowPtr; 

BEGIN 
NW := nw; 

w := I.OpenWindow(NW); 

IF w#NILTHEN 
I.CIoseWindow(w) 

END; 

END Test. 

Das Modul SYSTEM: 

SYSTEM ist ein compilerinternes Modul, das eine Reihe von ’low- 
level’ Prozeduren enthält, die direkte Manipulation von Registern und 
Daten erlauben. Diese Prozeduren sollten so selten wie nur möglich 
verwendet werden. 

PROCEDURE ADR(x: ARRAY OF BYTE): LONGINT; 

Das Ergebnis von ADR() ist die Adresse von x. x kann dabei von ei¬ 
nem beliebigen Typ sein. 
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ADR() kann in Oberonprogrammen, die sauber geschrieben wurden 
und keine direkten Betriebssystemaufrufe enthalten, immer vermieden 
werden. So kann zum Beispiel in 

VAR a: xyz; 

BEGIN 

b := SYSTEM.ADR(a); 

END; 

ADR(a) vermieden werden, wenn man a gleich als Zeiger definiert: 

VAR a: POINTER TO xyz; 

BEGIN 

NEW(a); Requests.Assert(a#NIL,"Kein Speicher"); 
b := a; 

END; 

Programme die SYSTEM.ADR() und DISPOSE() nicht verwenden, 
sind frei von sogenannten hängenden Referenzen, d.h. Zeigern auf 
Speicherbereiche, die keine gültigen Werte mehr enthalten. Dadurch 
können folgenschwere Fehler vermieden werden. 

PROCEDURE SIZE(x: ARRAY OF BYTE / Type): Integer; 

SIZE(x) ergibt den von x benötigten Speicher in Bytes, x kann dabei 
ein Typ oder eine Variable sein. 

PROCEDURE VAL(T: Ty pe; x: ARRAY OF BYTE): T; 

Interpretiert x, als wenn es vom Typ T ist. Dadurch sind Typumwand¬ 
lungen möglich. SIZE(T) und SIZE(x) müssen gleich sein. 

PROCEDURE INIT(p: POINTER); 

Diese Prozedur dient dazu, die Typeguards (siehe [nw:or]) in Records 
zu setzen. Dies geschieht normalerweise automatisch, wenn Speicher 


8/7 



8. Besonderheiten des Compilers 


mit NEW() alloziert wird. Wenn für RECORDs Speicher z.B. mit 
Exec.AllocMemO alloziert wird, müssen die Typeguards noch in das 
Record geschrieben werden, damit die Typ-Tests korrekt 
funktionieren. 

Beispiel: 

VAR p: POINTER TO RECORD ... END; 

BEGIN 

p := MyAllocMem(SYSTEM.SIZE(p A )); 

IF p=NILTHEN HALT(20) ELSE SYSTEM.INIT(p) END; 
END; 

PROCEDURE ROT(x: Integer / Set; n: INTEGER): Integer / Set; 

Rotiert die Bits in x um n Positionen nach links, oder nach rechts für 
ein negatives n. x kann von einem beliebigen Integer- oder Set-Typ 
sein. 

PROCEDURE LSH(x: Integer / Set; n: INTEGER): Integer / Set; 

Verschiebt die Bits in x um n Positionen nach links, oder nach rechts 
für negative n. Dabei werden die freiwerdenden Bits mit Nullen 
gefüllt. Mit dieser Funktion können z.B. Zweierpotenzen berechnet 
werden. Das Ergebnis von LSH(l,n) ist vom Typ SHORTINT und ist 
der Wert 2 hoch n. 

PROCEDURE REG(n: INTGER): LONGINT; 

REG() liefert den Inhalt der Register des 68000er-Prozessors. n ist ei¬ 
ne INTEGER-Konstante, die das Register auswählt. Dabei meinen 
Werte von 0 bis 7 die Register DO bis D7. Die Werte 8 bis 15 ergeben 
den Inhalt der Register AO bis A7. 
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PROCEDURE SETREG(n: INTEGER; x: ARRAY OF BYTE); 

Kopiert den Wert x in das 68000er-Register mit der Nummer n 
(Nummer wie bei REG()). x darf höchstens 4 Bytes groß sein. Ist 
SIZE(x) nur 1 oder 2, so wird x lediglich in das unterste Byte bzw. 
Wort des Registers geschrieben. 

PROCEDURE INLINE(xl,x2,x3,...: INTEGER); 

INLINE fügt konstante Wörter direkt in den Code-Teil der erzeugten 
Objektdatei ein. Dadurch kann ein Programm kurze Maschinencode¬ 
programme oder Daten enthalten. INLINE() akzeptiert Werte, die zwi¬ 
schen -8000H und +0FFFFH liegen. Die Werte > 7FFFH werden wie 
vorzeichenlose INTEGERs behandelt. 

Da der Compiler passiven Code entfernt, kann es bei Statements wie 
LOOP EXIT; INLINE(...) END; 
passieren, daß der INLINE-Code wieder entfernt wird. 

Stringkonstanten; 

Konstante Zeichenketten stehen immer automatisch an geraden Adres¬ 
sen und enden mit einem OX. Zeichenketten können mit Anführungs¬ 
zeichen oder Apostrophen definiert werden. 

Auf konstante Strings kann zeichenweise zugegriffen werden. Dies 
geschieht wie bei gewöhnlichen ARRAYs. Es können alle Zeichen 
einschließlich des OX am Zeichenkettenende ausgelesen werden. 

Beispiel: 

PROCEDURE lntToHex(int: LONGINT; 

VAR hex: ARRAY OF CHAR; n: INTEGER); 
CONST digits = "0123456789ABCDEF"; 
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VAR x: LONGINT; 

BEGIN 
hex[n] := OX; 

WHILE n>0 DO 
DEC(n); 

x := int MOD 16; 

IF x<0 THEN INC(x,16) END; 
hex[n] := digits[x]; 
int := int DIV 16; 

END; 

END IntToHex; 

Eine weitere Besonderheit sind Steuerzeichen, die mit Hilfe des Back- 
slashes (’V) eingefügt werden können. Der Backslash wird von einem 
Buchstaben oder Zeichen gefolgt. Die Zeichen haben folgende 
Bedeutungen: 


Zeichen 

Bedeutung 


\n 

Line-feed 

OAX 

\t 

Tabulator 

09X 

V 

Carriage-return 

ODX 

\b 

Backspace 

08X 

V 

Form-feed 

OCX 

\o 

nul 

OOX 

Ne 

Escape 

1BX 

\\ 

Backslash 

5CX 

V 

single quote 

fi * »f 

\" 

double quote 


NNNN 

Das Zeichen mit der Octalzahl NNN 


\xHH Das Zeichen mit der Hexzahl HH (OHHX) 

\[ V[’ = Control Sequence Introducer (CSI) 

Das wohl wichtigste Zeichen ist LF ('\n"), das beim Aufruf von 
io.WriteString das gleiche bewirkt wie io.WriteLn. Mit Hilfe des CSI 
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("\[") kann die Schriftart leicht verändert werden. So schaltet z.B. 
"\[lm" auf Fettschrift, und "\[m" schaltet wieder zurück auf normale 
Schrift. Genaueres dazu steht in [cbm:ld]. 

Ein Backslash am Zeilenende bewirkt, daß die Zeichenkette in der 
nächsten Zeile fortgesetzt werden kann. Das Zeilentrennzeichen im 
Quelltext (LF) wird dann überlesen. 

Alle anderen Zeichen hinter einem Backslash werden unverändert 
übernommen. Dies betrifft auch Steuerzeichen im Quelltext. 

Zeichenketten dürfen nie auf ungeraden Adressen liegen. Dies ist 
wichtig, wenn mit Zeigern auf Zeichenketten gearbeitet wird und man 
den Zeiger mitten in einen Text zeigen läßt. 

Reservierte Wörter und Operatoren: 

Dieser Compiler kennt folgende Operatoren und reservierte Wörter, 
die nicht als Bezeichnernamen verwendet werden können: 


1» 

# 

& 

> 

( 

) 

* 

+ 

9 

/ 

l 

:= 

9 

< 

<= 

= 

> 

>= 

l 

] 

A 

{ 

1 

} 

~ 

AND 

ARRAY 

BEGIN 

BPOINTER 

CASE 

CLOSE 

CONST 

DIV 

DO 

ELSE 

ELSIF 

END 

EXIT 

IF 

IMPORT 

IN 

IS 

LOOP 

MOD 

MODULE 

NOT 

OF 

OR 

POINTER 

PROCEDURE 

RECORD 

REPEAT 

RETURN 

STRUCT 

THEN 

TO 

TYPE 

UNTIL 

VAR 

WHILE 

WITH 



8. Besonderheiten des Compilers 


Standardbezeichner: 

Folgende Bezeichner sind vordefiniert: 



ABS 

ASH 

BOOLEAN 

BYTE 

CAP 

CHAR 

CHR 

COPY 

DEC 

DISPOSE 

ENTIER 

EXCL 

FALSE 

HALT 

INC 

INCL 

INTEGER 

LEN 

LONG 

LONGINT 

LONGREAL LONGSET 

MAX 

MIN 

NEW 

NIL 

ODD 

ORD 

REAL 

SET 

SHORT 

SHORTINT 

SHORTSET TRUE 



Typgrößen: 




Die Standardtypen können folgende Werte annehmen: 


Typ 

MIN(Typ) 

MAX(Typ) 

SIZE(Typ) 

BOOLEAN 

FALSE 

TRUE 

1 

CHAR 

OX 

OFFX 

1 

BYTE 

0 

255 

1 

SHORTINT 

-128 

127 

1 

INTEGER 

-32768 

32767 

2 

LONGINT 

-2147483648 

2147483647 

4 

REAL 

-9.223317*10^18 

9.223317*10*18 

4 

LONGREAL 

-10 A 308 

10*308 

8 

SHORTSET 

0 

7 

1 

SET 

0 

15 

2 

LONGSET 

0 

31 

4 


Bei den Settypen beziehen sich MIN() und MAX() auf die maximale 
bzw. minimale Größe der Setelemente. 
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Einschränkungen: 

Da ein (realer) Computer eine endliche Maschine ist, muß es bei den 
Programmen, die auf diesem Computer laufen sollen, gewisse Restrik¬ 
tionen geben. Diesen Einschränkungen unterliegt auch der Compiler. 
Zudem wurden noch weitere Einschränkungen gemacht, die keine 
größeren Nachteile bringen, die Programme jedoch beschleunigen, 
verkürzen und vereinfachen. 

-maximale Codegröße je Modul 32768 Bytes (vor der 
Optimierung). Ein Modul, das diesen Umfang hat, sollte 
ohnehin wegen der besseren Übersichtlichkeit schon längst in 
zwei Module gespalten worden sein. 

-maximaler Stringkonstantenbereich je Modul 32768 Bytes. 
Wenn dieser Bereich jemals erschöpft werden sollte, kann ein 
zweites Modul, das nur Strings enthält, geschrieben werden. 

- maximale Länge von Bezeichnern 79 Zeichen. 

-maximaler Bereich von globalen Variablen je Modul: 2 GByte. 
Um effizient auf alle Variablen zugreifen zu können, sollte der 
Variablenbereich kleiner als 32KByte sein. 

- maximale Größe von offenen Feldparametem: 32KByte. 

- maximale Größe des Stapelbereichs der aktiven Prozedur: 
32KByte. D.h. die Größe der Prozedurparameter und der lokalen 
Variablen darf zusammen nie mehr als 32K sein. Eine 
Abhilfe ist das Arbeiten mit Zeigern, die dann mit NEW() 
alloziert werden, statt mit Recordvariablen. 


-maximale Symboldateigröße: 7FFFFEH = 8388606 Bytes. 
- maximale Anzahl Module je Programm: 32768. 
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- maximale Schachtelungstiefe stapelbarer Optionen: 64. 

- maximal 256 RECORD-Definitionen je Modul, jedoch beliebig 
viele STRUCTs. 

Das Laufzeitsystem: 

Bei der Entwicklung der Laufzeitunterstützung wurde besonderer 
Wert auf Effizienz und Kürze gelegt. Dies wirkt sich jedoch nicht ne¬ 
gativ auf die Sicherheit aus. 

Das Standard-Laufzeitsystem befindet sich im Modul ’OberonLib’. 
Dieses Modul wird automatisch in alle Oberonprogramme eingebun¬ 
den und übernimmt dort grundlegende Aufgaben, wie z.B. die Spei¬ 
cherverwaltung und das Rechnen mit LONGINT-Zahlen. Zudem fängt 
es Laufzeitfehler ab. Dies sind z.B. Überläufe beim Rechnen oder das 
Verwenden von Zeigern, die den Wert NIL enthalten. Solche Fehler 
führen in den seltensten Fällen zu Systemabstürzen. Sie werden nor¬ 
malerweise abgefangen. Dabei wird jedoch keine Fehlermeldung 
ausgegeben. Wurde ein Programm von der Workbench gestartet, kann 
man den Fehler nur daran bemerken, daß das Programm plötzlich be¬ 
endet wird. 

Im CLI hat man es etwas einfacher: ein fehlerhaftes Programm gibt -1 
als Returncode zurück. Das Dos meldet sich dann mit der zwar wenig 
sagenden, aber immerhin vorhandenen Fehlermeldung ’Unable to load 
"xyz"’. Diese Meldung signalisiert einen schweren Fehler im 
Programm. 

Damit Laufzeitfehler vielsagender angezeigt werden, sollten alle 
Programme, zumindest während der Entwicklungsphase, eines der 
Module ’NoGuru’ oder ’NoGuruRq’ importieren. Diese Module geben 
bei einem Laufzeitfehler die genaue Fehlerursache im CLI-Fenster 
bzw. in einem Requester aus. ’NoGuru’ gibt zudem noch die Prozes¬ 
sorregister (’Dx’ und ’Ax’), den Program-Counter (’pc’), das Statusre¬ 
gister (’sr’) und evtl, noch weitere Informationen aus. Assembler- 
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freaks können damit, solange sich das fehlerhafte Programm noch im 
Speicher befindet, genauere Informationen über Fehlerort und Fehler¬ 
ursache gewinnen. 

Oberonprogramme können normalerweise nicht mit der Tastenkombi¬ 
nation Control und ’C’ abgebrochen werden. Dies ist jedoch bei 
Programmen, die länger laufen und nicht jederzeit beendet werden 
können, oft wichtig. Deshalb gibt es die Module ’Break’ und 
’BreakRq’, die einen einfachen Abbruch mit dieser Tastenkombina¬ 
tion erlauben. Sie brauchen, genauso wie die NoGuru-Module, nur in 
der Importliste erwähnt werden. 

Compileroptionen: 

Durch das Setzen oder Löschen bestimmter Optionen kann der Com¬ 
piler veranlaßt werden, unterschiedlichen Code zu erzeugen, der aus 
Gründen der Effizienz oder beim Schreiben von bestimmten 
Programmteilen, wie z.B. Prozeduren, die im Interrupt ablaufen 
sollen, nötig ist. 

Die Optionen, die Überprüfungscode ausschalten, sollten sparsam und 
nur an Stellen, von deren Korrektheit man sich überzeugt hat, verwen¬ 
det werden. 

Die Optionen können entweder direkt beim Starten des Compilers als 
Parameter übergeben werden, oder in ungeschachtelten Kommentaren 
gesetzt werden. Dabei werden sie mit einem Dollarzeichen ("$") 
eingeleitet. Direkt dahinter folgt der Name der Option. Es wird Groß- 
und Kleinschreibung unterschieden. Als letztes Zeichen folgt ein "+", 
oder "=". "+" schaltet die Option ein, schaltet sie aus. "=" kann 
nur bei stapelbaren Optionen verwendet werden. Es setzt sie zurück 
auf den Wert vor dem letzten "+" oder Dadurch kann man die Op¬ 
tionen leicht schachteln. 
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Beispiel: 

(* $RangeChk- hier keine Bereichskontrolle *) 

(* $RangeChk= Bereichskontrolle wieder auf ursprünglichen Wert *) 

Hier nun die Beschreibungen der einzelnen Optionen: 

In Klammem jeweils der Gültigkeitsbereich, der voreingestellte Wert 
und evtl, der Compilerparameter, der diese Option ausschaltet. Stapel¬ 
bare Optionen beziehen sich auf den gesamten Text. Prozedurbezo¬ 
gene Optionen gelten für diejenige Prozedur, deren Prozedurkörper als 
nächstes folgt. 

CaseChk (stapelbar, +, c): 

Wenn gesetzt, wird Code erzeugt, der prüft, ob ein Element in einer 
CASE-Anweisung ohne ELSE gefunden wurde, und anderenfalls das 
Programm abbricht. 

CodeChip (bezogen auf Modul, -): 

$CodeChip+ erzwingt, daß der Codeteil dieses Moduls in Chip- 
Memory (siehe [cbm:exec]) geladen wird. Dies kann nötig sein, wenn 
der Code z.B. Grafikdaten enthält. 

CopyArrays (bezogen auf Prozedur, -): 

SCopyArrays- verhindert, daß offene Feldparameter auf den Stack ko¬ 
piert werden. Sie werden stattdessen wie VAR-Parameter behandelt. 
Die Felder dürfen dann von der Prozedur nicht verändert werden. 

SCopyArrays- kann Prozeduren, die Strings als Parameter haben, 
optimieren. Konstante Zeichenketten können nicht an VAR-Paramter 
zugewiesen werden. Durch diese Option werden die offenen Feldpara¬ 
meter alle zu Pseudo-VAR-Parametem. 
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DataChip (bezogen auf Modul, -): 

) 

$DataChip+ erzwingt, daß der Konstantenbereich dieses Moduls in 
Chip-Memory (siehe [cbm:exec]) geladen wird. Dies ist z.B. dann 
nötig, wenn man eine Wellenform für Musik als eine Feldkonstante 
speichert. 

DeallocPars (bezogen auf Prozedur, +): 

$DeallocPars- verhindert, daß eine Prozedur ihre Paremeter vom 
Stack entfernt. Dadurch kann diese Prozedur von C-Routinen aus auf- 
* gerufen werden. C-Routinen geben ihre Parameter nicht selbst frei. 

EntryExitCode (bezogen auf Prozedur, +): 

$EntryExitCode- verhindert, daß Eingangs- und Ausgangscode für die 
folgende Prozedur erzeugt wird. Im Einganscode wird normalerweise 
der Speicher für die lokalen Variablen angelegt und die offenen Feld¬ 
parameter werden kopiert. Im Ausgangscode wird der Speicher der lo¬ 
kalen Variablen und der Parameter freigegeben und an die Stelle des 
Prozeduraufrufs zurückgesprungen. 

Bei INLINE-Maschinencode-Prozeduren oder Prozeduren, die nur 
Daten enthalten, ist es oft sinnvoll, diese Option zu löschen. 

Implementation (bezogen auf Modul, +): 

$Implementation- verhindert, daß für dieses Modul eine Objektdatei 
erzeugt wird. Dies ist in Modulen, die nur Typen und Konstanten 
enthalten, sinnvoll. 

Ein solches Modul darf keine Variablen, Stringkonstanten und Proze¬ 
duren enthalten. t * At «■ 9 k l —v fc k* tvcr -ft 

f- t k^,r\ • 


o 
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NilChk (stapelbar, +, n): 

Der Compiler erzeugt normalerweise Überprüfungscode, der abfängt, 
wenn ein Programm einen Zeiger, der NIL enthält, z.B. mit " A " 
dereferenziert. Diese Überprüfung macht Programme, in denen viel 
mit Zeigern gearbeitet wird, sehr sicher. Der Nachteil ist, daß diese 
Überprüfung Programme oft stark verlängert und verlangsamt. 

$NilChk- schaltet diese Überprüfung aus. Dies sollte jedoch nur in 
sorgfältig ausgetesteten Modulen gemacht werden. 

OvflChk (stapelbar, +, v): 

$OvflChk- schaltet die Überlaufsüberprüfung ab. Man spricht von ei¬ 
nem Überlauf, wenn das Ergebnis einer Berechnung so groß ist, daß 
es nicht mehr in den gewählten Typ paßt. Beispiel: 

TYPE i: INTEGER; 

BEGIN 
i := 1000; 
i := i*i; 

END; 

Das korrekte Ergebnis wäre 1 000 000, was größer als MAX(INTE- 
GER) ist. Deshalb würde dieses Programm normalerweise wegen ei¬ 
nes Überlaufs abbrechen. Die Überlaufskontrolle verlängert und ver¬ 
langsamt Programme kaum, da für sie nur ein kurzer Befehl (TRAPV) 
hinter den Berechnungen eingefügt wird. 

RangeChk (stapelbar, +, b): 

$RangeChk- schaltet die Bereichskontrolle ab. Normalerweise wird 
beim Zugriff auf Feldelemente überprüft, ob der Index größer oder 
gleich 0 und kleiner als die Länge des Feldes ist, da sonst auf ungülti¬ 
ge Daten zugegriffen würde. Entsprechend wird der Bereich bei SET- 
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Elementen und bei Umwandlung mit der Standardprozedur SHORT() 
überprüft. 

ReturnChk (stapelbar, +, r): 

Eine Prozedur, die ein Ergebnis liefert, muß mit einer RETURN- 
Anweisung beendet werden. Wurde das RETURN vergessen, wird 
dies normalerweise während der Laufzeit abgefangen. $ReturnChk- 
schaltet diese Überprüfung ab. 

SaveAURegs (bezogen auf Prozedur, -): 

$SaveAllRegs+ bewirkt, daß die Prozedur alle Register des 68000’er 
Prozessors rettet, so daß sie nach einem Prozeduraufruf unverändert 
sind. Dies kann z.B. wichtig sein, wenn diese Prozedur von Assem¬ 
blercode aus aufgerufen wird. 

SaveRegs (bezogen auf Prozedur, -): 

Ist die Option SaveRegs gesetzt, werden ähnlich wie bei SaveAURegs 
die Register D2-D7 und A2-A7 unverändert zurückgegeben. Dies ist 
nötig, wenn die Prozedur z.B. von C-Routinen aus aufgerufen wird. 

StackChk (stapelbar, +, s): 

Lokale Variablen und Prozedurparameter werden normalerweise auf 
dem Stapelspeicher abgelegt. Dieser Speicher ist jedoch nicht 
unbegrenzt, sondern kann bei vielen geschachtelten Prozeduraufrufen 
und vielen lokalen Variablen schnell ausgehen. Normalerweise wird 
ein Oberon-Programm abgebrochen, wenn dieser Speicher ausgeht. 

SStackChk- schaltet diese Überprüfung aus. Programme ohne Stack¬ 
kontrolle können bei zu wenig Stapelspeicher Abstürze verursachen, 
auch wenn das Programm völlig korrekt ist. Daher sollte diese Option 
sehr vorsichtig verwendet werden. 
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Die Stackkontrolle muß in Prozeduren abgeschaltet werden, die als In¬ 
terrupt verwendet werden sollen. 

TypeChk (stapelbar, +, t): 

Beim Zugriff auf erweiterte RECORDs in der WITH-Anweisung oder 
mit dem Typeguard (mit x(Typ).y), wird geprüft, ob der Wert auch 
vom Typ der Erweiterung ist. Ist dies nicht der Fall, wird ein Pro¬ 
gramm abgebrochen, da auf ungültige Daten zugegriffen würde. 

STypeChk- schaltet diese Überprüfung aus. Dies kann in Anweisun¬ 
gen wie der folgenden bedenkenlos gemacht werden: 

IF p IS ABC THEN 
WITH p: ABC DO 

END; 

END; 

Hier ist sichergestellt, daß p vom Typ ABC ist. Sonst sollte die Typü¬ 
berprüfung jedoch nur bei zeit- und speicherkritischen Programmen, 
die sorgfältig ausgetestet wurden, ausgeschaltet werden. 

Die verschiedenen Speicher modelte: 

Kurze Programme und Programme mit wenigen globalen Variablen 
können durch die Verwendung der kleinen Speichermodelle noch wei¬ 
ter optimiert werden. Dies muß dem Compiler und dem Linker jedoch 
durch das Setzen von Optionen mitgeteilt werden. 

Das kleine Code-Modell: 

Dieses Speichermodell wird durch die Compiler- und Linkeroption 
’-m’ eingeschaltet. Dabei werden alle Aufrufe von Prozeduren aus 
importierten Modulen optimiert. Dies funktioniert jedoch nur, wenn 
der Code-Teil des Programms insgesamt höchstens 32KByte lang ist. 
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Ist er größer, erzeugt BLink zusätzlichen Code, damit das Programm 
dennoch gelinkt werden kann. Das ereugte Programm ist dann jedoch 
meist länger und langsamer als mit dem großen Code-Modell. Das 
gleiche passiert, wenn man beim Linken vergißt, die Option ’-m’ zu 
setzen. 

Das kleine Daten-Modell: 

Aktiviert wird dieses Speichermodell durch die Compiler- und Linker¬ 
option ’-d\ Dabei werden die Speicherbereiche der globalen Variablen 
aller Module zu einem Speicherblock zusammengefügt. Der Vorteil 
ist, daß beim Wechseln der globalen Variablen durch einen Aufruf ei¬ 
ner Prozedur eines anderen Moduls, der Speicherblock nicht gewech¬ 
selt werden muß. Damit fällt je Prozedur eine ganze Menge Code 
weg. Zudem kann schneller auf Variablen importierter Module zuge¬ 
griffen werden. 

Ein weiterer Vorteil dieses Speichermodells ist, daß der Speicher der 
globalen Variablen erst während der Laufzeit alloziert wird. Dadurch 
können diese Programme resident gehalten werden und mehrmals ge¬ 
startet werden, es wird ja bei jedem Start ein neuer Satz globaler Va¬ 
riablen angelegt. 

Die Einschränkung dieses Speichermodells wird von den meisten 
Programmen erfüllt: Es darf maximal 32KByte globale Variablen je 
Porgramm geben. Bei großen Feldern kann diese Grenze durch die 
Verwendung von Zeigern und das Allozieren des Speichers während 
der Laufzeit eingehalten werden. 

Wird ein Programm mit dem kleinen Datenmodell compiliert, so 
müssen alle Module mit diesem Modell compiliert werden, und auch 
beim Linken muß die Option ’-d’ gesetzt sein. Bei der Compilation 
werden Objektdateien mit der Endung ’.objs’ erzeugt, um sie von den 
normal compilierten unterscheiden zu können. 

Dadurch, daß Programme bei dieser Option reentrant sind, ergibt sich 
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noch eine Reihe von Vorsichtsmaßnahmen für die Programmierung, 
vor allem bei der Verwendung der ’low-LeveP Fähigkeiten dieses 
Compilers: 

-Assemblercode, der vom Oberon-Programm aufgerufen wird, 
darf selbst keine globalen Variablen verwenden. 

-Bei der Programmierung von Exceptions, Interrupts etc. und 
beim Starten von neuen Tasks muß sichergestellt sein, daß die 
betroffene Prozedur entweder keine globalen Variablen 
verwendet oder daß das Register A5 korrekt geladen wird. 

-In Oberon geschriebene Libraries und Devices müssen A5 in 
jeder Prozedur, die von außen aufgerufen werden kann, vor der 
Verwendung von globalen Variablen korrekt setzen. 

- A5 darf während dem Programmlauf nicht verändert werden. 

Ansonsten dürfte es jedoch keine Probleme geben, so daß diese Op¬ 
tion bei den meisten Programmen gesetzt werden kann. 

Kombination der Speichermodelle: 

Es ist natürlich möglich, die beiden Speichermodelle zu kombinieren, 
um die Vorteile beider Modelle auszunutzen. Dies ist besonders bei 
der Programmierung kleiner CLI-Utilities sinnvoll, bei denen oft auch 
die Residentfahigkeit eine wichtige Rolle spielt. 
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9. Unterschiede zwischen Oberon und 
Modula-2: 

Oberon ist eine Weiterentwicklung der Sprache Modula-2 und führt 
somit die lange Sprachentwicklung, die mit Algol begann und über 
Pascal zu Modula führte, fort. Bei der Entwicklung von Oberon wurde 
besonderer Wert darauf gelegt, die Sprache zu vereinfachen und 
gleichzeitig ihre Möglichkeiten zu erweitern. Dazu wurde sie um ein 
paar Fähigkeiten ergänzt, während einige Fähigkeiten, die entweder 
überflüssig oder gar hinderlich waren, gestrichen wurden. Das Ergeb¬ 
nis ist eine leicht erlernbare, einfache Sprache, die dennoch viele neue 
Möglichkeiten bietet und den bisherigen Sprachen in mancher Hin¬ 
sicht überlegen ist. 

Neue Fähigkeiten von Oberon: 

Die wohl wichtigste Neuerung in Oberon ist die Erweiterbarkeit von 
RECORD-Typen. In Modula war es bereits möglich, auf der Basis 
von bestehenden Modulen und Prozeduren neue Prozeduren 
aufzubauen. Diese Erweiterbarkeit der Programme wird nun auch mit 
den Datentypen möglich. Durch diese Möglichkeit wird Oberon zu ei¬ 
ner objektorientierten Sprache. Das Entwickeln von neuen Modulen 
auf der Basis einer großen Modulbibliothek wird erleichtert, da die er¬ 
weiterten Typen weiterhin kompatibel zu ihren Basistypen bleiben, so- 
daß bereits bestehende Prozeduren auch mit den neuen Typen arbeiten 
können. 

Ein schönes Beispiel für die Anwendungsmöglichkeiten, die die Re¬ 
corderweiterungen bieten, sind die Typen der Elemente in einem 
Baum. Zunächst der Knoten, der kein erweitertes Record ist: 

TYPE 

NodePtr = POINTER TO Node; 
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Node = RECORD 
left,right: NodePtr; 
key: INTEGER; 

END; 

Der Baum soll aus diesen Knoten aufgebaut und nach Node.key sor¬ 
tiert sein. Eine Prozedur, die einen Knoten des Baumes sucht, sieht 
wie folgt aus: 

PROCEDURE Find(root: NodePtr; k: INTEGER): NodePtr; 
BEGIN 

WHILE (root#NIL) AND (root.key#k) DO 
IF root.key<kTHEN root := root.right 

ELSE root := root.left END; 

END; 

RETURN root; 

END Find; 

Entsprechend eine Prozedur zum Einfügen neuer Elemente in den 
Baum: 

PROCEDURE Add(VAR root: NodePtr; el: NodePtr); 

BEGIN 

IF root=NILTHEN root := el 

ELSIF root.key>el.key THEN Add(root.left,el) 

ELSE Add(root.right,el) END; 

END Add; 

Nun sind jedoch noch keine Daten in dem Baum gespeichert. Um dies 
zu tun, kann der Knotentyp erweitert werden. Nehmen wir an, wir 
schreiben ein CAD-Programm, das Kreise und Rechtecke zeichnet: 

TYPE 

RectPtr = POINTER TO Reet; 
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Reet = RECORD (Node) 
x,y,b,h: INTEGER 
END; 

CirclePtr = POINTER TO Circle; 

Circle = RECORD (Node) 
mx,my: INTGER; 
r: INTEGER; 

END; 

Diese 2 Records enthalten die Elemente left, right und key des Basis¬ 
typs Node. Zudem enthalten sie die hier definierten zusätzlichen 
Elemente. Diese beiden Typen sind zuweisungskompatibel zum Typ 
Node. Entsprechendes gilt für die Zeiger auf diese Typen. Daher kön¬ 
nen sie einfach mit Add() in den Baum eingefügt werden. In dem 
gleichen Baum können sowohl Rechtecke als auch Kreise gespeichert 
werden. Es ist also ein sogenannter inhomogener Baum. Die Prozedur 
zur Eingabe eines Rechtecks kann folgendermaßen aussehen: 

PROCEDURE DefineRect(VAR root: NodePtr; k: INTEGER); 

VAR r: RectPtr; 

BEGIN 

NEW(r); IF r=NILTHEN HALT(20) END; 
r.key := k; 

WaitMouseButton; 
r.x ;= MouseX; 
r.y := MouseY; 

WaitMouseButton; 
r.b := MouseX - r.x; 
r.h := MouseY - r.y; 

Add(root,r); 

END DefineRect; 
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Wenn nun ein Element dieses Baumes mit einem bestimmten key ge¬ 
zeichnet werden soll, kann es mit der Prozedur Find() gesucht werden. 
Nun muß jedoch festgestellt werden, von welchen Typ dieses Element 
ist, d.h. ob es ein Rechteck, ein Kreis oder noch etwas anderes ist. 
Dies geschieht mit dem Typ-Test, der mit dem Schlüsselwort IS ge¬ 
macht wird. 

Danach muß dem Compiler noch mitgeteilt werden, daß das Element 
ab sofort nicht nur ein Knoten ist, sondern ein Rechteck oder ein 
Kreis. Dies kann in einem Ausdruck mit einem Typeguard geschehen, 
also z.B. mit node(Rect).x. Soll über ein größeres Programmstück ein 
anderer Typ angenommen werden, kann dies mit Hilfe der WITH- 
Anweisung geschehen. 

Hier die Prozedur zum Zeichnen: 

PROCEDURE Draw(root: NodePtr; k: INTEGER); 

VAR node: NodePtr; 

BEGIN 

node := Find(root.k); 

IFnode#NILTHEN 
IF node IS Reet THEN 
WITH node: Reet DO 
DrawRect(node.x,node.y,node.b,node.h); 

END; 

ELSIF node IS Circle THEN 
DrawCircle(node(Circle).mx, 
node(Circle).my, 
node(Circle).r); 

END; 

END; 

END Draw; 

Man kann nun annehmen, die Typerweiterung könne auch in 
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Modula-2 leicht simuliert werden. Die Typen für Rechteck und Kreis 
könnten dann folgendermaßen definiert werden: 

TYPE 

RectPtr = POINTER TO Reet; 

Reet = RECORD 
node: Node; 
x,y,b,h: INTEGER 
END; 

CirclePtr = POINTER TO Circle; 

Circle = REDORD 
node: Node; 
mx,my: INTGER; 
r: INTEGER; 

END; 

In Modula-2 hat man dann etwas mehr Schreibarbeit beim Zugriff auf 
den Knoten, nämlich Rect.node.left statt Rect.left. Zudem sind die Ty¬ 
pen nicht zuweisungskompatibel zu Node, es muß stattdessen 
Reet, node oder Circle.node geschrieben werden. Dies ist jedoch alles 
nicht der entscheidende Nachteil von Modula. Das Problem, das man 
in Modula hat, ist eine saubere Überprüfung des Typs, wenn man le¬ 
diglich einen Zeiger auf einen Knoten hat, wie dies in der Prozedur 
Draw() der Fall ist. 

In diesem Beispiel ist die Typüberprüfung überhaupt nicht möglich. 
Aber selbst wenn man ’von Hand’ noch ein Feld einfügt, das Informa¬ 
tionen über den Typ enthält, kommt man um eine unsaubere Typum¬ 
wandlung nicht herum. 

Eine andere Möglichkeit, wie man diese Typen in Modula-2 realisie¬ 
ren könnte, wären Variante Records. Dabei geht jedoch die Fähigkeit 
der beliebigen Erweiterbarkeit verloren, es muß von vomeherein be¬ 
kannt sein, welche zusätzlichen Informationen in den verschiedenen 
Records enthalten sein müssen und welche Erweiterungen nötig sind. 
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Bei der Definition von exportierten Recordtypen müssen in Oberon 
alle nach außen sichtbaren Elemente mit einen Sternchen markiert 
werden. Dies erweitert die Möglichkeiten der opaken Datentypen, die 
es in Modula-2 gibt. In Oberon kann für jedes Element einzeln ent¬ 
schieden werden, ob es öffentlich ist oder nur modulintem verwendet 
werden kann. Ein opaker Typ kann einfach dadurch erzielt werden, 
daß in einer Recordtypdeklaration kein Recordelement nach außen 
sichtbar ist. Auf den Inhalt eines solchen Typs kann man in anderen 
Modulen zwar zunächst nicht zugreifen, man hat aber weiterhin die 
Möglichkeit, diese Records zu erweitern und kann somit eigene Daten 
darin speichern. 

Eine weitere neue Möglichkeit, die Oberon bietet, ist das Konzept des 
Typeinschlusses. Es gibt eine Hirarchie von numerischen Typen, wo¬ 
bei die oberen Typen die jeweils tieferliegenden einschließen. Zuwei¬ 
sungen der unteren Typen an die oberen sind möglich. Die Zuwei¬ 
sungsmöglichkeiten sind hier durch Pfeile markiert: 

SHORTINT -> INTEGER -> LONGINT -> REAL -> LONGREAL 

Wird in Ausdrücken mit verschiedenen Typen gerechnet, ist das Er¬ 
gebnis immer von dem Typ, der die Typen beider Operanden 
einschließt. Beispiel: 

VAR 

i: INTEGER; 
j: LONGINT; 
k; REAL; 

I: LONGREAL; 


Ausdruck 

Typ 

k*i 

REAL 

i*j+l 

LONGREAL 

j/i 

REAL 

jDIVi 

LONGINT 
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Das Ergebnis einer Division mit "/" ist immer ein Real-Typ, auch 
wenn die Operanden nur von Integertypen sind. 

Mit den Variablen von oben sind z.B. folgende Zuweisungen möglich: 

j :=i; 
i:=j; 

I := k+10; 

Zuweisungen wie i := j oder j := k sind jedoch nicht erlaubt. 

Prozedurtypen werden in Oberon ähnlich definiert wie Prozeduren 
selbst. Dabei werden dann dummy-Parameterbezeichner benutzt, die 
als Kommentar dienen können. Beispiel: 

TYPE MyProc = PROCEDURE(i,j: INTEGER); 

Dieser Prozedurtyp wäre in Modula-2 PROCEDURE(INTEGER, 
INTEGER). 

Fähigkeiten, die gegenüber Modula-2 fehlen: 

Typen: 

Variante Records und Opake Typen gibt es in Oberon nicht mehr. Sie 
können beide durch die neuen Möglichkeiten, die sich durch die Er- 
weiterbarkeit von Records ergeben, ersetzt werden. Durch die 
Möglichkeit, bei Recordtypdeklarationen die Sichtbarkeit jedes ein¬ 
zelnen Elementes festzulegen, bietet Oberon eine deutlich flexiblere 
Methode zum Tnformation-Hiding’. 

Aufzählungstypen gibt es in Oberon nicht mehr, da sie leicht durch 
Konstanten ersetzt werden können und über Modulgrenzen hinweg 
nicht erweiterbar sind. So kann z.B. der Aufzählungstyp 


TYPE Ampel = (rot,gelb,gruen); 
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durch die 3 Konstanten 

CONST rot = 0; gelb = 1; gruen = 2; 

ersetzt werden. Statt des Typs Ampel kann dann SHORTINT verwen¬ 
det werden. Möchte man noch weitere Elemente hinzufügen, wie dies 
z.B. bei einer Umweltampel nötig ist, ist dies jetzt leicht möglich: 

CONST blau = 3; 


Oberon kennt keine Unterbereichstypen mehr. In Oberon muß man 
stattdessen deren Basistyp verwenden. 

Durch das Fehlen der Aufzählungs- und Unterbereichstypen verliert 
die Möglichkeit der Definition neuer SET-Typen ihren Sinn. Stattdes¬ 
sen gibt es nur noch einen Standard-SET-Typ (Diese Oberon- 
Implementation kennt zusätzlich die Typen SHORTSET und 
LONGSET). 

In Oberon gibt es die Typen CARDINAL und LONGCARD nicht 
mehr. Es gibt kaum Programme, die den vollen CARDINAL- 
Zahlenbereich ausgenutzt haben. Stattdessen kann also auch INTE¬ 
GER verwendet werden. Durch das Fehlen der CARDINALs hat die 
Inkompatibilität zwischen INTEGER und CARDINAL ein Ende. 

Zeiger in Oberon dürfen nur noch auf RECORDs und auf ARRAYs 
zeigen. 

Der Indextyp von ARRAYs ist in Oberon immer Integer. Bei der Defi¬ 
nition von ARRAY-Typen werden keine 2 Grenzen, sondern nur noch 
die Länge des Feldes angegeben. Die Indizes reichen dann von 0 bis 
zur Länge minus 1. 
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Module: 

Lokale Module gibt es in Oberon nicht mehr, da sie in Modula-2 
kaum benutzt wurden. 

Importierte Bezeichner können nicht mehr mit "FROM Module IM¬ 
PORT x" direkt importiert werden, sondern müssen qualifiziert impor¬ 
tiert werden. Um dies zu vereinfachen, kann der Modulname in der 
Importliste abgekürzt werden, also "IMPORT m: Module;" und später 
im Modul "... m.x ...". 

Durch den qualifizierten Import werden Module leichter verständlich, 
da die Herkunft aller Bezeichner sichtbar ist. 

In Modula gab es drei verschiedene Arten von Modulen, nämlich 
Definitionen, Implementationen und Hauptmodule. In Oberon gibt es 
nur noch eine Art von Modul, das die Funktion aller drei Modultypen 
übernimmt. Die exportierten Bezeichner, die in Modula in der Defini¬ 
tion aufgelistet wurden, werden durch Sternchen markiert. Hauptmo¬ 
dule werden nicht besonders gekennzeichnet. Alle Module können als 
Hauptmodul dienen und zu ausführbaren Programmen gelinkt werden. 

Anweisungen: 

Die WITH-Anweisung hat in Oberon eine völlig andere Aufgabe als 
in Modula-2 (siehe oben). Wie bei importierten Bezeichnern müssen 
die Recordelemente qualifiziert angewählt werden. 

In Oberon gibt es keine FOR-Schleifen mehr. Diese wurden ohnehin 
selten verwendet und können leicht durch andere Schleifen ersetzt 
werden. 

Niedere Funktionen: 

Die in Modula-2 möglichen Typkonvertierungen wurden in Oberon 
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fallengelassen. Das Modul SYSTEM, das viele Programmierer stän¬ 
dig importiert haben, enthält keine Datentypen mehr, sondern nur 
noch niedere Prozeduren. 

Module, die SYSTEM importieren gelten als nicht portierbar. SYS¬ 
TEM soll in gewöhnlichen Modulen nicht verwendet werden, da es 
dort immer vermieden werden kann. 
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10. Schnittstellen zu Libraries und 
Assemblercode: 

Definition von absoluten Variablen: 

Unter absoluten Variablen versteht man Variablen, die an einer festen 
Speicheradressen stehen. Davon gibt es im Amiga eigentlich nur eine 
einzige: Execbase, die Basisadresse der Exec-Library. Sie steht an 
Adresse 4. 

Zusätzlich können absolute Variablen verwendet werden, um die 
Hardware-Register direkt anzusprechen. Dies ist in vielen Fällen sehr 
praktisch, meist jedoch auch sehr schlechter Stil. Wer sauber 
programmiert, sollte über den Umweg Devices auf die Hardware 
zugreifen. 

Absolute Variablen werden ähnlich wie normale Variablen definiert. 
Die Adresse ist eine Konstante vom Typ LONGINT. Sie wird in ecki¬ 
ge Klammern gesetzt und hinter den Variablenbezeichner (bei expor¬ 
tierten Variablen hinter das Sternchen) geschrieben. 

Beispiel aus Exec: 

VAR 

exec* [4]: ExecBasePtr; 

Deklaration und Aufruf von Library-Prozeduren: 

Um auf die Routinen einer Amiga-Library zugreifen zu können, muß 
zunächst eine globale Variable deklariert werden, die die Basisadresse 
der Library enthält, also den Wert, den Exec.OpenLibraryO 
zurückgibt. Nun müssen zu allen Prozeduren die sogenannten Offsets 
bekannt sein. Sie können der Literatur zum Amiga-Betriebssystem 
entnommen werden. 
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Die Basisadresse einer Library muß eine globale Variable sein, die im 
selben Modul, in dem sich auch die Library-Prozedurdeklarationen 
befinden, definiert wird. 

Die Deklaration der Prozeduren besteht aus einem normalen 
Prozedurkopf, wie bei allen anderen Oberonprozeduren auch. Dabei 
wird hinter den Prozedurbezeichner in geschweiften Klammem der 
Name der Basisvariablen und hinter einem Komma der Libraryoffset 
geschrieben. Da die Parameter einer Libraryprozedur gewöhnlich in 
Registern übergeben werden, müssen die Nummern der verwendeten 
Register in geschweifte Klammem hinter die jeweiligen Parametema- 
men geschrieben werden. 

Beispiel: 

PROCEDURE TextLength*{gfx,- 54}(rp{9}:RastPortPtr; 

string{8}:e.ADDRESS; 

count{0}:LONGINT):INTEGER; 

Diese Prozedur hat den Offset -54. Der Zeiger auf die Library- 
Struktur befindet sich in der Variablen gfx. Es werden 3 Parameter in 
den Registern Al, A0 und DO übergeben. Das Ergebnis der Prozedur 
wird immer in DO zurückgegeben. Hier ist es ein INTEGER-Wert. 

Bei VAR-Registerparametem wird nicht der Wert selbst, sondern ein 
Zeiger auf den übergebenen Wert in das Register geladen. 

So deklarierte Libraryprozeduren können genauso wie alle anderen 
Oberonprozeduren aufgerufen werden, ohne daß man etwas Besonde¬ 
res beachten muß. Dies kann auch von anderen Modulen aus 
geschehen. Es wird dabei direkt Code zum Aufrufen der Prozedur 
erzeugt, und nicht der Umweg über eine zweite Prozedur gegangen. 

Wenn Libraryprozeduren aufgerufen werden, muß sichergestellt sein, 
daß die Library auch vorher geöffnet wurde. Die Amiga-Interface- 
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Module zu diesem Compiler, die den Zugriff auf die Libraries 
ermöglichen, öffnen sie alle selbständig. 

Zugriff auf Variablen und Prozeduren von Assemb¬ 
lerroutinen 

Dieser Compiler erlaubt es, in Assembler geschriebene Routinen auf¬ 
zurufen und auf Variablen im Assemblercode zuzugreifen. Das As¬ 
semblerprogramm muß dabei nicht mit INLINE() in den Text einge¬ 
fügt werden, sondern kann mit einem normalen Assembler, der 
Amiga-Objektdateien erzeugt, assembliert werden. Die billigste und 
eine der besten Lösungen ist der Assembler "a68k", der auf Public 
Domain Disketten erhältlich ist. 

Um Bezeichner (Labels) vom Assemblercode aus zu exportieren, 
müssen sie mit "XDEF <label>" gekennzeichnet werden. Diese Be¬ 
zeichner werden dann in die Objektdatei geschrieben. Um von Oberon 
aus darauf zuzugreifen, muß dem Compiler noch mitgeteilt werden, 
wie diese Bezeichner heißen und von welchem Typ sie sind. Bei As¬ 
semblerroutinen geschieht dies durch eine Prozedurdeklaration ähn¬ 
lich wie bei Library-Prozeduren. In die geschweiften Klammern hinter 
den Prozedurbezeichner kommt hier jedoch ein konstanter String, der 
dem Namen des Labels entspricht. 

Auf Variablen wird ähnlich wie bei absoluten Variablen zugegriffen. 
In die eckigen Klammem hinter den Variablenbezeichner kommt hier 
auch ein konstanter String für den Labelnamen. 

Beispiel: 

Folgende Assemblerroutine berechnet den größten gemeinsamen Tei¬ 
ler der beiden LONGINTs, die in DO und Dl übergeben werden. Das 
Ergebnis wird in DO zurückgegeben. In der INTEGER-Zahl "ent" 
werden die benötigten Schleifendurchläufe gezählt. 
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XDEF ent 

XDEF GGT 

SECTION "GGT",BSS 

ent: dc.w 0 

SECTION "GGT",CODE 

GGT: clr ent 

loop: addq #1 ,cnt 

sub.l DO,Dl 

beq.s done 

bpl.s loop 

neg.l Dl 

sub.l Dl,DO 

bra.s loop 

done: rts 

END 

Diese Routine kann nun z.B. mit "a68k GGT.asm" assembliert 
werden. Das Ergebnis ist die Objektdatei GGT.o. 

Im Oberon-Programm können die Variable ent und die Routine GGT 
z.B. wie folgt verwendet werden: 

MODULE Demo; 

IMPORT io; 


VAR 

zaehler["cnt"]: INTEGER; 
a,b: LONGINT; 

PROCEDURE ggt{"GGT"}(a{0},b{1}: LONGINT): INTEGER; 
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BEGIN 

REPEAT 

io.WriteString("a>") 

UNTIL io.Readlnt(a) AND (a>0); 

REPEAT 

io.WriteString("b>") 

UNTIL io.Readlnt(b) AND (b>0); 

io.WriteStringC'GGT:"); io.Writelnt(ggt(a,b),8); io.WriteLn; 
io.WriteStringfcnt:"); io.Writelnt(zaehler, 8); io.WriteLn; 
END Demo. 

Beim Linken müssen die Objektdateien der Assemblerteile extra ange¬ 
geben werden, da OLink nur Oberon-Objektdateien finden kann. Dies 
geschiet durch einen weiteren Parameter an OLink, der hinter ’OBJ’ 
angegeben wird. So kann das Programm von oben folgemdermaßen 
gelinkt werden: 

OLink Demo OBJ GGT.o 

Eine andere Möglichkeit, die Assemblerroutinen automatisch einbin¬ 
den zu lassen, besteht darin, sie mit der Objektdatei eines Oberon- 
Moduls mit Hilfe des CLI-Befehls ’JOIN’ zu verbinden. Bei dem Bei¬ 
spiel von oben kann man z.B. folgendes Modul schreiben: 

MODULE GGT; 

VAR ent*["ent"]: INTEGER; 

PROCEDURE GGT*{"GGT"}(a{0},b{1}: LONGINT): INTEGER; 
END GGT. 

Dieses Modul wird nun zunächst ganz normal compiliert. Danach gibt 
man folgende CLI-Befehle ein: 
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JOIN GGT.obj GGT.o AS T:GGT.obj 
COPY T:GGT.obj TO GGT.obj 

Danach enthält die Objektdatei GGT.obj auch die Assemblerroutine. 
Alle Module, die GGT oder ent aus diesem Modul importieren, kön¬ 
nen nun auch einfach mit OLink gelinkt werden. Diese Methode funk¬ 
tioniert auch dann, wenn in dem Oberonmodul sowohl Oberon als 
auch Assemblerprozeduren definiert werden. 

Manchmal ist der umgekehrte Weg nötig, nämlich daß von Assem¬ 
blercode aus Oberonprozeduren aufgerufen werden sollen. Dies ge¬ 
schieht mit dem Pseudo-Opcode "XREF" im Assemblertext. Dabei 
muß hinter XREF der Name der Prozedur angegeben werden, die auf¬ 
gerufen werden soll. Dieser Name ist immer qualifiziert, das heißt er 
besteht aus dem Modulnamen, einem Punkt und dem Prozedurnamen. 
Folgendes Beispielprogramm gibt mit Hilfe von io.WriteString eine 


Zeichenkette auf dem 

Bildschirm aus: 



XREF 

io.WriteString 



XDEF 

demo 


demo: 

pea 

hello(PC) 

; Stringadresse 


move 

#14,-(A7) 

; Stringlänge 


jsr 

io.WriteString 

; Prozedur aufrufen 


rts 


; und zurück 

hello: 

dc.b 

"Hello World!",10,0 



END 




Ein Modul, das diese Prozedur aufruf, sieht z.B. folgendermaßen aus: 

MODULE Demo; 

IMPORT io; 

PROCEDURE demofdemo"}; 
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BEGIN 

demo; 

END Demo. 

Dabei ist wichtig, daß das Modul io vom Oberonmodul importiert 
wird, da die Assemblerroutine die Prozeduren aus io nur dann verwen¬ 
den darf, wenn io vorher korrekt geöffnet wurde. Oberonprozeduren 
sollten von Assembler aus nur dann aufgerufen werden, wenn man ge¬ 
nau weiß, wie die Parameterübergabe von diesem Compiler realisiert 
wird. 

Für das Linken gilt hier das gleiche wie oben bei reinen Assembler¬ 
prozeduren. 

Schwieriger ist es, von Assembler aus auf Variablen des Oberon- 
Prorgramms zuzugreifen. Man sollte dann lieber die Variablen als Pa¬ 
rameter an die Assemblerroutine übergeben. Alle globalen Variablen 
stehen hinter dem Label "<Modulname>_vars". Man könnte nun di¬ 
rekt über dieses Label auf die Variablen zugreifen, wenn man sich die 
Offsets ’von Hand’ ausrechnet. Dies ist jedoch gefährlich, da die 
Adressen der Variablen bei künftigen Compilerversionen anders sein 
können. Besser ist es, alle für die Assemblerroutine wichtigen Varia¬ 
blen in einer Struktur (mit STRUCT) zusammenzufassen, und diese 
Struktur der Routine als VAR-Parameter, am besten in einem 
Adressregister, zu übergeben. 
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11. Wie erzeuge ich schnellen Code? 

Dieser Compiler erzeugt im allgemeinen kurzen und schnellen Code. 
Darauf wurde auch während der gesamten Entwicklungszeit beson¬ 
derer Wert gelegt. Dennoch kann man, wenn man über ein paar Eigen¬ 
heiten des Compilers und des erzeugten Codes Bescheid weiß, noch 
schnellere Programme schreiben, ohne auf den umständlichen As¬ 
sembler umsteigen zu müssen. 

Die in diesem Kapitel vorgestellten Möglichkeiten, den erzeugten 
Code vom Quelltext aus zu verbessern sollten, jedoch nicht angewen¬ 
det werden, wenn dadurch Programmteile, die nicht besonders zeit- 
und speicherplatzkritisch sind, unübersichtlicher und dadurch schwe¬ 
rer zu pflegen werden. 

Speichermodelle 

Die einfachste Möglichkeit, den Code zu verbessern, ist die Verwen¬ 
dung der kleinen Speichermodelle, wo dies möglich ist. Dabei kann 
das kleine Datenmodell auch dann meistens verwendet werden, wenn 
man mit großen Feldern arbeiten möchte. Dazu deklarariert man statt 
den Feldvariablen Zeigervariablen auf den Feldtyp und alloziert den 
Speicher dafür während der Laufzeit. 

Variablen: 

Einer der wichtigsten Punkte bei der Geschwindigkeit ist wohl die 
Dauer eines Zugriffs auf eine Variable. Auf Variablen wird normaler¬ 
weise (beim kleinen Datenmodell immer) relativ zu einem Adreß¬ 
register, mit einem 16-Bit breiten Offset, zugegriffen. Dies ist deutlich 
effektiver als der Weg über absolute Adressen. Der Nachteil ist, daß 
bei einem globalen Variablenbereich eines Moduls, der größer als 32 
KByte ist, bei den zuletzt definierten Variablen dennoch die absolute 
Adressierung verwendet werden muß. Daher sollte der Variablenbe¬ 
reich je Modul immer möglichst kleiner als 32K gehalten werden. Bei 
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größeren Variablenbereichen sollten die oft verwendeten, kleineren 
Variablen vor den seltener verwendeten deklariert werden. Die Größe 
des Variablenbereichs wird nach der Compilation hinter dem Wort 
"BSS:" ausgegeben. 

Eine Sonderstellung nimmt die jeweils zuerst definierte globale oder 
lokale Variable ein. Werden mehrere Variablen in der gleichen Zeile 
definiert, betrifft dies diejenige, die ganz rechts, direkt vor dem Dop¬ 
pelpunkt steht. Auf sie kann indirekt über ein Adreßregister ohne ei¬ 
nen zusätzlichen Offset zugegriffen werden. Dadurch wird der Code 
bei jedem Zugriff 2 Bytes kürzer und schneller. Man sollte also 
Variablen, die besonders oft verwendet werden, zuerst definieren. 

Wird auf Variablen aus importierten Modulen zugegriffen, so wird die 
absolute Adressierung verwendet. Bei sehr vielen Zugriffen kann es 
sich daher lohnen, externe Variablen in Variablen des Moduls, in dem 
sie oft verwendet werden, zu kopieren. Dabei muß man jedoch darauf 
achten, daß die Variablen zurückgeschrieben werden, wenn sie verän¬ 
dert wurden. Beim kleinen Datenmodell kann auf importierte Varia¬ 
blen gleich schnell zugegriffen werden wie auf die lokalen Variablen. 

Bei geschachtelten Prozeduren wird der Zugriff auf lokale Variablen 
umschließender Prozeduren sehr kompliziert, zeit- und Speicher auf¬ 
wendig. Um dies zu vermeiden, können oft verwendete Variablen aus 
äußeren Prozeduren in globale oder zur inneren Prozedur lokale Varia¬ 
blen kopiert werden. 

Strukturanweisungen: 

Die REPEAT-Schleife wird etwas effizienter übersetzt als die 
Schleifen mit LOOP und WHILE. Falls es nicht zu Problemen führen 
kann, sollte man REPEAT verwenden. 

Boolesche Ausdrücke und äquivalente geschachtelte IF-Anweisungen 
erzeugen bei der Compilation normalerweise den gleichen Code. 
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Beispiel: 

Die Zeile 

IF ATHEN IF a() THEN b END END; 
erzeugt exakt den gleichen Code wie 
IF A& a() THEN b END; 

Es sollte also immer die übersichtlichste und einleuchtendste 
Schreibweise verwendet werden. 

Libraryaufrufe: 

Vor dem Aufruf einer Amiga-Libraryprozedur muß die Basisadresse 
der Library in das Register A6 geladen werden. Bei mehrmaligen Auf¬ 
rufen von Prozeduren derselben Library wird A6 nur einmal geladen, 
solange es nicht durch Aufrufe von anderen Prozeduren oder durch 
Strukturanweisungen wie Schleifen zerstört wurde. Um effizient 
mehrere Routinen derselben Library aufzurufen, sollten die Aufrufe 
daher möglichst direkt hintereinander geschrieben werden. 

Typen: 

Beim Arbeiten mit Integerzahlen sollte der Typ LONGINT nur dort 
verwendet werden, wo der Zahlenbereich von INTEGERs überschrit¬ 
ten wird. Operationen mit LONGINT-Zahlen sind immer langsamer 
als solche mit INTEGERs, dies macht sich besonders bei Multiplika¬ 
tionen und Divisionen bemerkbar. 

Werden SHORTINTs statt INTEGERs verwendet, verkürzen sich 
Code und Rechenzeit jedoch nicht. In manchen Fällen, wie zum Bei¬ 
spiel bei Multiplikationen und Divisionen, wird das Programm sogar 
länger und langsamer. SHORTINTs bieten nur den Vorteil, daß sie im 
Variablenbereich 1 Byte weniger benötigen. 
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Für ganze Zahlen sollte also so oft wie möglich der Typ INTEGER 
verwendet werden. 

Bei der Definition von Feldern, auf die oft zugegriffen werden soll, ist 
es von großem Vorteil, wenn die Größe des Grundtyps des Feldes eine 
Potenz von zwei ist. Sonst muß bei jedem Zugriff auf ein Feldelement 
eine zeitraubende Multiplikation ausgeführt werden. 
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12. Der erzeugte Code: 

In diesem Kapitel wird der interne Aufbau von Oberon-Programmen 
beschrieben. Informationen darüber dient vor allem Assemblerpro¬ 
grammierern, die Einblicke in die innere Struktur der Programme 
benötigen. Die Informationen über den erzeugten Überprüfungscode 
können jedoch auch für reine Oberonprogrammierer von Nutzen sein. 

Zum besseren Verständnis des Aufbaus ist die Kenntnis des Objektda¬ 
teiformats nützlich. Eine relativ gute Beschreibung dieses Formats 
findet man in [rb:agb]. 

Aufbau von Oberonprogrammen: 

Jedes Oberonmodul, außer das Modul OberonLib, kann zu einem aus¬ 
führbaren Programm gelinkt werden. Daher enthalten alle Objektda¬ 
teien als ersten Hunk (Objektdateien sind in bestimmte Unterblöcke, 
sog. Hunks unterteilt) Code, der die Open- und Close-Teile des Mo¬ 
duls aufruft. Dieser Hunk wird beim Linken bei allen importierten 
Modulen wegoptimiert. 

Die Open- und Close-Segmente werden mit den Labels "<Modul- 
name>_Vxxxxxxxxxxxx_open" bzw. "<Modulname>_close" eingelei¬ 
tet. Dabei enthält das erste Label die Versionsnummer als Hexa¬ 
dezimalzahl. 

Die globalen Prozeduren eines Moduls werden, zusammen mit ihren 
lokalen Prozeduren, in unterschiedliche Hunks gespeichert. Dadurch 
wird das optimierende Linken möglich. Alle exportierten Prozeduren 
erhalten ein Label der Form "<Modulname>.<Prozedumame>". 

Die globalen Variablen eines Moduls stehen immer hinter dem Label 
"<ModuIname>_vars". Dieses Label existiert auch dann, wenn im 
Modul keine globalen Variablen deklariert werden. 
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Entsprechend gibt es ein Label "<Modulname>_data", ab dem die 
Stringkonstanten stehen. Dieses Label fehlt jedoch, wenn in einem 
Modul keine konstanten Zeichenketten Vorkommen. 

Aufruf des Open- und Close-Codes: 

Die letzte (INTEGER-) Variable im Variablenbereich jedes Moduls ist 
ein Zähler, der hochgezählt wird, wenn der Open-Code eines Moduls 
aufgerufen wird, und entsprechend bei der Ausführung des Close- 
Codes verringert wird. Beim Aufruf des Open-Teils wird geprüft, ob 
dieser Zähler nach dem Erhöhen den Wert 1 enthält. Ist dies nicht der 
Fall, wurde das Modul bereits geöffnet und es wird einfach 
zurückgesprungen. Ansonsten werden alle importierten Module geöff¬ 
net und dann der eigentliche Code zum Öffnen ausgeführt. So ist 
sichergestellt, daß jedes Modul, das in der Modulhierarchie niedriger 
gestellt ist, vor den jeweils höheren Modulen geöffnet wird. 

Beim Schließen der Module vollzieht sich die gesamte Prozedur 
rückwärts: Die in der Hierarchie höheren Prozeduren müssen zuerst 
und die niedrigeren zum Schluß geschlossen werden. Dabei muß si¬ 
chergestellt sein, daß kein Modul geschlossen wird, bevor ein Modul 
geschlossen wird, das dieses importiert. Dies wird dadurch erreicht, 
daß der Zähler, der beim Öffnen erhöht wurde, nun bei jedem Aufruf 
des Close-Teils verringert wird. Erst wenn er 0 ist, wird das Modul 
wirklich geschlossen und es werden die Schließprozeduren der impor¬ 
tierten Module aufgerufen. Der Zähler ist am Schluß wieder 0, also 
der Anfangswert. Wenn ein Oberonprogramm resident geladen ist, 
kann es daher nun wieder gestartet werden, auch wenn es nicht mit 
dem kleinen Datenmodell compiliert wurde. 

Zugriff auf Variablen: 

Auf globale Variablen wird normalerweise über das Register A5 
zugegriffen. A5 enthält die Basisadresse des Bereichs der globalen 
Variablen, auf die mit einem positiven Offset zugegriffen werden 
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kann. Ist der Variablenbereich größer als 32KByte, wird auf die 
'hinteren’ Variablen mit der absoluten Adressierung zugegriffen. 

Die lokalen Variablen und Prozedurparameter werden auf dem Stapel¬ 
speicher abgelegt. Auf sie wird normalerweise relativ zum Register 
A7 zugegriffen. Dabei ist darauf zu achten, daß der Inhalt von A7 ver¬ 
änderlich ist und z.B. beim Aufruf von anderen Prozeduren verringert 
wird, wodurch sich der Offset der Variablen vergrößert. 

Hat eine Prozedur offene Felder als Wertparameter, so müssen diese 
anfangs auf den Stack kopiert werden. Um auch dann auf die Varia¬ 
blen zugreifen zu können, werden ihre Basisadressen, die sonst in A7 
stehen, nach A4 kopiert. 

Wenn lokale Prozeduren auf die Variablen von umschließenden Proze¬ 
duren zugreifen müssen, verwenden sie einen Zeiger auf die Variablen 
der umschließenden Prozedur, der automatisch als interner Prozedur¬ 
parameter übergeben wird. Bei tieferen Verschachtelungen muß man 
über mehrere dieser Zeiger auf die Variablen tiefergelegener Prozedu¬ 
ren zugreifen. 

Auf Variablen externer Module wird (außer beim kleinen 
Datenmodell) absolut zugegriffen. 

Zugriff auf String-, Feld - und Recordkonstanten: 

Auf Konstanten wird immer mit absoluter Adressierung zugegriffen. 
Konstanten sind so 'selten', daß es sich nicht lohnen würde, für ihre 
Basisadresse ein Adreßregister zu verschwenden. 
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Der Aufbau des Stapelspeichers bei globalen Proze¬ 
duren: 

In einer globalen Prozedur enthält der Stack folgende Daten: 


Belegt von früher 
aufgerufenen Prozeduren 


Prozedurparameter 


Rücksprungadresse 


evtl, gerettetes A5 


Bereich der lokalen Variablen 


frei 


< hierher zeigt A7 


Die Prozedurparameter werden in der Reihenfolge, in der sie beim 
Prozeduraufruf geschrieben werden, auf den Stapel gelegt. Die Rück¬ 
sprungadresse wird von dem JSR-Befehl auf den Stapel gelegt. Die 
aufgerufene Prozedur rettet, wenn dies nötig ist, zunächst A5, und lädt 
die Adresse der globalen Variablen dieses Moduls. Die lokalen Varia- ( 
bien stehen in der Reihenfolge ihrer Deklaration im Speicher, das 
heißt die erste Variable bei 0(A7) etc. 


12/4 



12. Der erzeugte Code 


Der Aufbau des Stapelspeichers bei lokalen Prozedu 
ren: 


Belegt von früher 
aufgerufenen Prozeduren 


Prozedurparameter 


Zeiger auf lokale Variablen 
der umschließendender Prozedur 


Rücksprungadresse 


Bereich der lokalen Variablen 


frei 


< hierher zeigt A7 


Lokale Prozeduren können nicht aus anderen Modulen aufgerufen 
werden, weshalb A5 nicht gerettet werden muß. Stattdessen wird ein 
Zeiger auf den Variablenbereich der direkt umschließenden Prozedur 
übergeben. Dieser Zeiger steht beim Abarbeiten dieser Prozedur ge¬ 
wöhnlich in A7. 


12/5 



12. Der erzeugte Code 


Format der offenen Feldparameter: 


Zeiger auf Feldinhalt 


Länge in Dimension n 


etc. 


Länge in Dimension 1 


Länge in Dimension 0 


< Adr. + 4+2 *n 

< Adr. + 2*n 

< Adr. + 2*(n-l) 

< Adr. + 4 

< Adr. + 2 

< Adr. 


Hat eine Prozedur offene Felder als Parameter, wird beim Aufruf zu¬ 
nächst die Adresse des Feldes und danach die Längen in den einzelnen 
Dimensionen, angefangen bei der höchsten Dimension, auf den Stack 
gelegt. Dabei sind die Längen INTEGER-Werte, sie dürfen also höch¬ 
sten 7FFFH sein. 

Beim Aufruf wird kein Unterschied zwischen Variablen- und Wertpa¬ 
rametern gemacht. Wertparameter werden erst nach dem Aufruf der 
Prozedur auf den Stack kopiert. 

Der erzeugte Überprüfungscode: 

Stackkontrolle: 

Zur Stackkontrolle wird am Anfang jeder Anweisungsfolge, die durch 
BEGIN oder CLOSE eingeleitet wird, der in dieser Anweisungsfolge 
durch lokale Variablen und andere Prozeduraufrufe maximal benötigte 
Stapelbereich mit OberonLib.StackChk geprüft. Dazu wird die Größe 
des Bereichs in DO geschrieben und die Prozedur angesprungen. 
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Beispiel: 

Eine leere exportierte Prozedur mit 12 Bytes lokale Variablen wird 
folgendermaßen übersetzt: 


00000000 : 

MOVE.L 

A5,-(A7) 

00000002 : 

MOVEA.L 

L000004(PC),A5 

00000006: 

MOVEQ 

#12,DO 

[• i • 1111 :« 


hi iiiiii iHHH 

0000000E : 

LEA 

-12(A7),A7 

00000012 : 

LEA 

12(A7),A7 

00000016: 

MOVEA.L 

(A7)+,A5 

00000018: 

RTS 


0000001A: 

NOP 



HUNK_EXT 

relocatable definition: test_AC = 00000000 (0) 
16 bit references on: test_AB 
000000:00000004.... 

32 bit references on: OberonLib.StackChk 
000000: 0000000A.... 

HUNK END 


Überlaufskontrolle: 


Ein Überlauf wird bei Rechnungen an einem gesetzten Overflowflag 
erkannt. Um dieses zu erkennen, wird der TRAPV-Befehl verwendet. 


Beispiel: 

Die Anweisung INC(i) in Oberon wird folgendermaßen übersetzt: 

0000001E: ADDQ.W #1,(A5) 

00000020: TRAPV 


) 
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Bereichskontrolle: 

Die Bereichskontrolle überprüft beim Zugriff auf Feldelemente, bei 
Umwandlungen von Integerzahlen mit der Standardprozedur 
SHORT() und beim Arbeiten mit Settypen, ob der zulässige Wertebe¬ 
reich eingehalten wird. 

Beispiel: 

VAR s: ARRAV 80 OF CHAR; 
i: INTEGER; 
c: CHAR; 

BEGIN 
c := s[i]; 

END 

Für diese Zuweisung wird folgender Code erzeugt: 

00000024: MOVE.W 80(A5),D7 

00000028 : CHK #$004F,D7 

0000002C : MOVE.B 0(A5,D7.W),82(A5) 

Kann der Bereich nicht mit CHK geprüft werden, wird stattdessen ein 
TRAP #0 verwendet. 

Caseindex-kontrolle: 

Diese Überprüfungsart verlangsamt Programme nicht und erzeugt le¬ 
diglich einen TRAP #1-Befehl hinter allen CASE-Anweisungen, die 
keinen ELSE-Teil haben. 

Return-Kontrolle: 

Auch diese Überpüfung verlangsamt Programme nicht. Es wird ledig¬ 
lich bei allen Prozeduren, die ein Ergebnis zurückliefem, als letzter 
Befehl ein TRAP #4 erzeugt. 
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NIL-Zeiger Überprüfung: 

Die Überprüfung, ob Zeiger, die dereferenziert werden, den Wert NIL 
enthalten ist relativ zu den anderen Überprüfungsarten sehr zeit- und 
speicheraufwendig. 

Beispiel: 

VAR i: INTEGER; 

p: POINTER TO RECORD a,b,c: INTEGER END; 

BEGIN 
i := p.b; 

END; 


Für die Zuweisung wird folgender Code erzeugt: 


00000020 : 

00000024 : 
00000026 : 
00000028 : 

0000002A: 


MOVEA.L 

MOVE.L 

BNE.S 

TRAP 

MOVE.W 


2(A5),A4 

A4,D7 

L00002A 

#3 

2(A4),(A5) 


Hier mußten also ganze 3 Befehle eingefügt werden. 


Typüberprüfung: 


Wird auf Daten von erweiterten Records mit einem Typeguard oder 
mit der WITH-Anweisung zugegriffen, erzeugt der Compiler Code, 
der den Typ der Daten prüft. In jedem Record enthält das letzte 
(versteckte) Element Informationen darüber, ob das Record erweitert 
wurde oder nicht. In letzterem Fall enthält es den Wert 0. 


Die Typüberprüfung erzeugt auch sehr viel Code. Dies wird besonders 
stark bemerkbar, wenn über mehrere Erweiterungen getestet wird. 
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Beispiel: 


TYPE 

A = RECORD a,b: SHORTINT END; 

B = RECORD (A) c,d: INTEGER END; 

C = RECORD (B) e,f: LONGINT END; 

VAR p,q: POINTER TO A; 

BEGIN 

p(C).e := q(B).d; 

END; 

Diese Zuweisung erzeugt folgenden Code, wenn bei der Compilation 
die NIL-Kontrolle abgeschaltet war: 


00000024 : 

MOVEA.L 

00000028: 

MOVE.L 

0000002A: 

BEQ.S 

0000002C : 

CMPI.L 

00000034 : 

BNE.S 

00000036 : 

CMPI.L 

0000003E : 

BEQ.S 

00000040 : 

TRAP 

00000042: 

MOVEA.L 

00000044: 

MOVE.L 

00000046: 

BEQ.S 

00000048: 

CMPI.L 

00000050 : 

BEQ.S 

00000052: 

TRAP 

00000054 : 

MOVE.W 

00000058 : 

EXT.L 

0000005A: 

MOVE.L 


4(A5),A4 

A4,D7 

L000042 

#$75000001,2( A4) 
L000040 

#$75000002,10( A4) 

L000042 

#5 

(A5),A3 

A3,D7 

L000054 

#$75000001,2( A3) 

L000054 

#5 

8(A3),D7 

D7 

D7,14(A4) 


bei 0000002C wird zunächst geprüft, ob p A die Erweiterung B ist Erst 
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dann kann geprüft werden, ob p A auch noch C ist. Für q(B) ist dage¬ 
gen nur eine Überprüfung nötig. 

Automatisch abgefangene Fehler: 

Für Fehler wie eine Division durch 0 oder das Verwenden von Zeigern 
auf ungerade Adressen bei Wort- oder Langwortzugriff wird kein 
Überprüfungscode erzeugt. Diese Fehler erzeugen automatisch einen 
Ausnahmezustand, der von NoGuru abgefangen wird. 
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13. Die Modulbibliothek: 

Die Definitionen der Module wurden alle mit dem Programm 
ModToDef aus den Original-Quelltexten erzeugt. 

Arguments: 

DEFINITION Arguments; 

IMPORT 
d: Dos; 

VAR 

Me: d.ProcessPtr; 

PROCEDURE NumArgs(): INTEGER; 

PROCEDURE GetArg(arg: INTEGER; VAR argument: ARRAY OF CHAR); 
PROCEDURE GetLock(num: INTEGER): d.FileLockPtr; 

END Arguments. 

Dieses Modul bietet Prozeduren zum Auslesen von CLI- und 
Workbenchargumenten. 

CLI-Argumente sind diejenigen Namen, die beim Starten eines Pro¬ 
gramms von der CLI-Oberfläche aus hinter dem Programmnamen an¬ 
gegeben werden. Die verschiedenen Argumente werden durch Leer¬ 
zeichen getrennt. Argumente, die selbst Leerzeichen enthalten, müs¬ 
sen dabei in Anführungszeichen geschrieben werden. 

Workbenchargumente sind Icons, die zusätzlich zu dem gestarteten 
Programm, zusammen mit der Shift-Taste, angeklickt wurden. Work¬ 
benchargumente können einen leeren Namen haben, wenn Directory¬ 
oder Diskettenicons angeklickt wurden. 

Das Modul Arguments behandelt CLI- und Workbenchargumente sehr 
ähnlich. Dadurch können Programme, die dieses Modul benutzen, 
meist vom CLI und von der Workbench aus benutzt werden. 
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Die Prozeduren im einzelnen: 

PROCEDURE NumArgs(): INTEGER; 

Gibt die Anzahl der Argumente zurück. Wurden keine Argumente 
angegeben, ist sie 0. 

PROCEDURE GetArg(arg: INTEGER; 

VAR argument: ARRAY OF CHAR); 

Diese Prozedur dient zum Auslesen von Argumenten. Der erste Para¬ 
meter gibt die Nummer des Argumentes an. Ist sie Null, wird der Na¬ 
me des gestarteten Programms zurückgegeben. Der zweite Parameter 
ist eine Zeichenkette, in die das Argument kopiert wird. 

Bei Workbenchargumenten ändert GetArgO zusätzlich das aktive Ver¬ 
zeichnis (current directory) auf das Directory, in dem sich das Argu¬ 
ment befindet. 

PROCEDURE GetLock(num: INTEGER): d.FileLockPtr; 

Diese Funktion gibt den Fock auf das Verzeichnis eines Argumentes 
zurück. Dieser Lock wird nicht dupliziert, darf also nicht mit 
Dos.UnLock() freigegeben werden. Bei CLI-Argumenten ist das Er¬ 
gebnis immer der Lock des aktiven Verzeichnisses, nur bei Workben¬ 
chargumenten können es verschiedene Verzeichnisse sein. 
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ASCII: 


DEFINITION ASCII; 

CONST 

nul = OOX; soh = 01X; stx = 02X; etx = 03X; 
eot = 04X; enq = 05X; ack = 06X; bei = 07X; 
bs = 08X; ht = 09X; If = OAX; vt = OBX; 
ff = OCX; er = ODX; so = OEX; si = OFX; 
die = 10X; dcl = 11X; dc2 = 12X; dc3 = 13X; 
dc4 = 14X; nak = 15X; syn = 16X; etb = 17X; 
can = 18X; em = 19X; sub = 1AX; esc = 1BX; 
fs = 1CX; gs =1DX;rs =1EX;us =1FX; 
sp = 20X; del = 7FX; eol = If; eof = fs; 
csi = 9BX; 

END ASCII. 


Dieses implementationslose Modul enthält lediglich Konstanten für 
die Steuerzeichen des ASCII-Zeichencodes (American Standard Code 
for Information Interchange). 

csi ist kein ASCII-Zeichen. Es wird vom Amiga benutzt um Kontroll- 
sequenzen einzuleiten. Genaueres zu deren Aufbau ist [cbm:lb] zu 
entnehmen. 
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AVL: 


DEFINITION AVL; 

TYPE 

NodePtr = POINTER TO Node; 

Node = RECORD 
I: NodePtr; 
r: NodePtr; 
bal: INTEGER; 

END; 

Root = RECORD 
root: NodePtr; 

cmp : PROCEDURE(a, b: NodePtr): INTEGER; 

find : PROCEDURE(VAR root: Root; a: NodePtr): INTEGER; 

END; 

CompProc = PROCEDURE(a, b: NodePtr): INTEGER; 

FindProc = PROCEDURE(VAR root: Root; a: NodeRr): INTEGER; 
DoProc = PROCEDURE(a: NodeRr); 

CONST 
left = -1; 
ok = 0; 
right = 1; 

TYPE 

String = ARRAY 80 OF CHAR; 

SNodeRr = POINTER TO SNode; 

SNode = RECORD (Node) 
name: String; 

END; 

SRoot = RECORD (Root) END; 

PROCEDURE lnit(VAR root: Root; cmp: CompProc; find: FindProc); 
PROCEDURE Add(VAR root: Root; node: NodePtr): BOOLEAN; 
PROCEDURE Find(VAR root: Root): NodeRr; 

PROCEDURE Remove(VAR root: Root; VAR node: NodePtr): BOOLEAN; 
PROCEDURE DoForward(root: Root; proc: DoProc); 

PROCEDURE DoBackward(root: Root; proc: DoProc); 

PROCEDURE Dispose(VAR root: Root); 

PROCEDURE Slnit(VAR root: SRoot); 

PROCEDURE SAdd(VAR root: SRoot; node: SNodePtr): BOOLEAN; 
PROCEDURE SFind(VAR root: SRoot; str: String): SNodeRr; 

END AVL 
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Dieses Modul enthält Typen, die Knoten und Wurzel von AVL- 
Bäumen darstellen, und Prozeduren, die es erleichtern, mit diesen 
Bäumen zu arbeiten. 

AVL-Bäume sind ausgeglichene binäre Bäume. Durch eine geschickte 
Art, den Baum auszugleichen, wird der Aufwand beim Einfügen und 
Entfernen von Elementen gering gehalten. Durch die Ausgeglichen¬ 
heit werden Elemente in dem Baum sehr schnell gefunden. AVL- 
Bäume sind also ein guter Kompromiß zwischen unausgeglichenen 
und vollständig ausgeglichenen binären Bäumen. Eine genauere Be¬ 
schreibung der AVL-Bäume kann [nw:aud] entnommen werden. 

Um den Inhalt der Knoten und der Wurzel braucht man sich normaler¬ 
weise nicht zu kümmern. Es reicht, wenn man die Prozeduren kennt 
und diese zur Manipulation des Baumes benutzt. 

PROCEDURE lnit(VAR root: Root; 

cmp: CompProc; 
find: FindProc); 

Diese Prozedur initialisiert und leert den AVL-Baum mit der Wurzel 
root. cmp ist eine Prozedur, die 2 Knoten vergleicht. Dabei soll sie 
beim Aufruf cmp(a,b) folgende Ergebnisse liefern: 

wenn a < b: Ergebnis < 0 
wenn a = b: Ergebnis = 0 
wenn a > b: Ergebnis > 0 

Die Prozedur find wird dazu benötigt, ein Element im Baum mit der 
Prozedur Find() (s.u.) zu suchen. Sie funktioniert ähnlich wie cmp. 
Beim Aufruf find(root,a) sollen folgende Ergebnisse geliefert werden: 

wenn a < dem gesuchten Element: Ergebnis < 0 
wenn a = dem gesuchten Element: Ergebnis = 0 
wenn a > dem gesuchten Element: Ergebnis > 0. 
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PROCEDURE Add(VAR root: Root; 

node: NodePtr): BOOLEAN; 

Add fügt das neue Element node in den Baum ein. Das Ergebnis ist 
TRUE, wenn das Einfügen erfolgreich war und FALSE, wenn node 
nicht mehr eingefügt werden konnte. Dies ist nur dann der Fall, wenn 
ein gleiches Element (siehe Prozedur cmp bei Init()), bereits im Baum 
enthalten war. 

PROCEDURE Find(VAR root: Root): NodePtr; 

Mit Find können Elemente im Baum gesucht werden. Dabei ist das 
Ergebnis ein Zeiger auf das Element, bei dem die Prozedur find(), die 
Init() übergeben wurde, 0 als Ergebnis liefert. Wurde kein passendes 
Element gefunden, ist das Ergebnis NIL. 

PROCEDURE Remove(VAR root: Root; 

VAR node: NodePtr): BOOLEAN; 

Remove entfernt das Element node aus dem Baum. Sein Speicher muß 
danach noch mit DISPOSE() freigegeben werden. Das Ergebnis ist 
TRUE, wenn node entfernt wurde, und FALSE, wenn node nicht im 
Baum enthalten war. 

PROCEDURE DoForward(root: Root; proc: DoProc); 

DoForward ruft proc mit jedem Element des Baumes als Parameter 
auf. Dabei werden die Elemente von 'links nach rechts’ aufgerufen, 
d.h. das kleinste Element zuerst und das größte zuletzt. 

PROCEDURE DoBackward(root: Root; proc: DoProc); 

Diese Prozedur funktioniert ähnlich wie DoForward, durchläuft den 
Baum jedoch 'rückwärts', so daß proc zunächst mit dem größten und 
zum Schluß mit dem kleinsten Element aufgerufen wird. 



AVL 


PROCEDURE Dispose(VAR root: Root); 

Dispose entfernt alle Elemente aus dem Baum und gibt ihren Speicher 
frei. 

String-AVL-Bäume: 

In vielen Fällen braucht man einen AVL-Baum dazu, Zeichenketten 
alphabetisch sortiert zu speichern. Um dies zu erleichtern, bietet die¬ 
ses Modul die Typen SNode und SRoot, die Knoten und Wurzeln von 
String-Bäumen darstellen. SNode.name enthält dabei immer den Na¬ 
men eines Knotens. Folgende Prozeduren zum Arbeiten mit String- 
Bäumen gibt es: 

PROCEDURE Slnit(VAR root: SRoot); 

Dies ist das Gegenstück zu Init(). Es initialisiert einen String-AVL- 
Baum mit der Wurzel root. Die Prozeduren cmp und find, die bei Init() 
übergeben werden müssen, werden auf 2 interne Prozeduren des Mo¬ 
duls AVL gesetzt. Man braucht sich also nicht weiter darum zu 
kümmern. 

PROCEDURE SAdd(VAR root: SRoot; 

node: SNodePtr): BOOLEAN; 

Fügt node in einen String-AVL-Baum ein. SAdd entspricht der Proze¬ 
dur Add() (s.o.) 

PROCEDURE SFind(VAR root: SRoot; 

str: String): SNodePtr; 

SFind durchsucht den String-AVL-Baum nach einem Knoten mit dem 
Namen str und gibt seine Adresse oder bei Mißerfolg NIL zurück. 

Die Prozeduren Remove, DoForward, DoBackward und Dispose kön¬ 
nen ohne Änderungen auch für String-Bäume verwendet werden. 
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Beispielprogramm: 


MODULE Bank; 

IMPORT AVL, io; 

TYPE BankNode = RECORD (AVL.Node) 
nummer: INTEGER; 
guthaben: LONGINT; 

END; 

VAR 

root: AVL.Root; 

bnode: POINTER TO BankNode; 

node: AVLNodePtr; 

str: ARRAY 80 OF CHAR; 

ch:CHAR; 

nummer: INTEGER; 

betrag: LONGINT; 

PROCEDURE * Cmp(a,b: AVLNodePtr): INTEGER; 

BEGIN RETURN a(BankNode).nummer - b(BankNode).nummer END Cmp; 

PROCEDURE * Find(VAR root: AVL.Root; node: AVLNodeRr): INTEGER; 
BEGIN RETURN node(BankNode).nummer - nummer END Find; 

BEGIN 

AVL lnit(root,Cmp,Find); 

LOOP 

io.WriteStringf’Ein-, Auszahlung, Konto eröffnen, schließen, Ende"); 
io.WriteString(" (E/A/O/S/Q)?"); io.ReadString(str); ch := CAP(str[0]); 

CASE ch OF 
"Q": EXIT | 

II^»1 lljjjjjll HQll llg«. 

REPEAT io.WriteString("Kontonummer:") 

UNTIL io.Readlnt(betrag) AND (betrag>=0) AND (betrag<=MAX(INTEGER)); 
nummer := SHORT(betrag); 

IF ch="0" THEN 

NEW(bnode); IF bnode=NIL THEN HALT(20) END; 
bnode.nummer := nummer; 

REPEAT io.WriteStringf'Guthaben :") UNTIL io.Readlnt(bnode.guthaben); 
IF NOT AVL. Add(root,bnode) THEN 
io.WriteStringf'Kontonummer existiert schon!"); io.WriteLn; 

END; 

ELSE 

node := AVLFind(root); 

IF node=NILTHEN 

io.WriteStringfKonto nicht gefunden!"); io.WriteLn; 
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ELSE 

IF ch="S M TH EN 

IFAVLRemove(root,node) THEN END; 

DISPOSE(node); 

ELSE 

WITH node: BankNode DO 

REPEAT io.WriteStringf'Betrag:") UNTIL io.Readlnt(betrag); 
IF ctW’A" THEN DEC(node.guthaben,betrag) 

ELSE INC(node.guthaben,betrag) END; 
io.WriteStringfneuer KontoStand:"); 
io.Writelnt(node.guthaben,8); io.WriteLn; 

END; 

END; 

END; 

END; 

ELSE END; (* CASE ch OF *) 

END; (* LOOP *) 

END Bank. 


Dieses Programm verwaltet einen AVL-Baum, der Bankkonten nach 
ihren Kontonummern sortiert verwaltet. Es ermöglicht das Eröffnen 
neuer Konten, das Schließen von Konten und das Ein- und Auszahlen 
von Beträgen. Erweiterungen des Programms, z.B. um eine Funktion 
zum Aufschlagen der Zinsen am Jahresende auf alle Konten, sind 
leicht mit DoForward möglich. 


13/9 



13. Die Modulbibliothek 


Beep: 

DEFINITION Beep; 

PROCEDURE Beep(low: BOOLEAN); 

END Beep. 

Mit diesem kurzen Modul können einfache Pieptöne erzeugt werden. 
Es ist oft sinnvoll, daß Programme den Benutzer mit akustischen Si¬ 
gnalen ’aufwecken’, um ihn auf Fehler aufmerksam zu machen oder 
ihm anzuzeigen, daß ein längerer Prozeß gerade beendet wurde und 
das Programm nun auf neue Eingaben wartet. 

Die Prozedur Beep dieses Moduls erzeugt einen solchen Ton. Je 
nachdem, ob der Parameter TRUE oder FALSE ist, wird ein tiefer, 
warnender Ton oder ein höherer Signalton erzeugt. 



Break 


Break: 

DEFINITION Break; 

PROCEDURE CtrICOff; 

PROCEDURE CtrICOn; 

END Break. 

Programme, die dieses Modul importieren, können mit der Tasten¬ 
kombination Control und C abgebrochen werden. Beim Abbruch wird 
die Meldung "*** Break" ausgegeben. 

Alle guten Programme sollten dieses Modul importieren, um dem Be¬ 
nutzer eine einfache Möglichkeit zum Abbruch des Programms zu 
bieten. Außerdem ist Break während der Testphase nützlich, um in 
Endlosschleifen hängengebliebene Programme zu stoppen. 

Mit den Prozeduren CtrlCOffO und CtrlCOn() kann die Abbruchmög¬ 
lichkeit kurzzeitig aus und wieder eingeschaltet werden. Es ist in man¬ 
chen Situationen nötig, sicherzustellen, daß ein Programm im Augen¬ 
blick nicht abgebrochen wird. 
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BreakRq: 

DEFINITION BreakRq; 

PROCEDURE CtrICOff; 

PROCEDURE CtrICOn; 

END BreakRq. 

BreakRq leistet das gleiche wie Break. Es benutzt jedoch nicht das 
Modul io, um den Text "*** Break" auszugeben, sondern öffnet mit 
Hilfe von Assert() aus Requests einen Requester. Der Vorteil ist, daß 
so io nicht importiert wird und beim Start von der Workbench das io- 
Fenster nicht geöffnet wird. Nachteilig ist, daß beim Arbeiten im CLI 
der Requester mit der Maus angeklickt werden muß und man so die 
Hände von der Tastatur nehmen muß. 



Conversions 


Conversions: 


DEFINITION Conversions; 

PROCEDURE StringTolnt(VAR str: ARRAY OF CHAR; 

VAR int: LONGINT): BOOLEAN; 
PROCEDURE lntToString( int: LONGINT; 

VAR str: ARRAY OF CHAR; 
n: INTEGER): BOOLEAN; 
PROCEDURE IntToHex ( int: LONGINT; 

VAR str: ARRAY OF CHAR; 
n: INTEGER): BOOLEAN; 
PROCEDURE StrTolnt(VAR str: ARRAY OF CHAR; 
VAR int: LONGINT; 
base: INTEGER): BOOLEAN; 
PROCEDURE IntToStrflnt: LONGINT; 

VAR str: ARRAY OF CHAR; 
base, width: SHORTINT; 
fillChar: CHAR): BOOLEAN; 


END Conversions. 


Mit den Prozeduren dieses Moduls können Zeichenketten in INTE- 
GER-Zahlen umgewandelt werden und umgekehrt. 

PROCEDURE StringTolnt(VAR str: ARRAY OF CHAR; 

VAR int: LONGINT): BOOLEAN; 

wandelt die Zeichenkette str in eine LONGINT-Zahl um. Dabei kann 
str eine vorzeichenbehaftete LONGINT-Zahl oder eine Hex-Zahl, die 
von einem "H" gefolgt wird, sein. Das Ergebnis ist TRUE, wenn str 
eine korrekte Zahl enthielt oder leer war. 

PROCEDURE lntToString( int: LONGINT; 

VAR str: ARRAY OF CHAR; 
n: INTEGER): BOOLEAN; 

Wandelt int in eine n-stellige Dezimalzahl um. Die Zeichenkette str 
muß mindesten 2+n Zeichen lang sein. Das Ergebnis ist FALSE, wenn 
int mehr als n Stellen benötigt. 
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PROCEDURE lntToHex(int: LONGINT; 

VAR str: ARRAY OF CHAR; 
n: INTEGER): BOOLEAN; 

Wandelt int analog zu IntToString in eine Hexadezimalzahl mit n Stel¬ 
len um. 

PROCEDURE StrTolnt(VAR str: ARRAY OF CHAR; 

VAR int: LONGINT; 
base: INTEGER): BOOLEAN; 

Wandelt den String str in eine Integerzahl um. Dabei gibt base das 
Zahlensystem an, in dem str übergeben wird (z.B. 2 für Binärsystem, 
16 für Hexadezimalsystem). Das Ergebnis ist TRUE, wenn eine kor¬ 
rekte Zahl übergeben wurde. 

PROCEDURE lntToStr(int: LONGINT; 

VAR str: ARRAY OF CHAR; 
base, width: SHORTINT; 
fillChar: CHAR): BOOLEAN; 

Wandelt die Integerzahl int in einen String um. Dabei gibt base das 
Zahlensystem und width die Breite des Strings an. Die Zahl wird 
rechtsbündig in str geschrieben. Die unbenutzten Stellen vor dem 
String werden mit fillChar gefüllt. Das Ergebnis ist bei Erfolg TRUE, 
d.h. wenn die Zahl in die zur Verfügung stehenden Stellen gepaßt hat. 
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DEFINITION Display; 

IMPORT I: Intuition, g: Graphics, li: Lists; 

TYPE 

DispEI = RECORD (li.Node) 
title : POINTER TO ARRAY 80 OF CHAR; 
rp : g.RastPortPtr; 
tont: g.TextFontPtr; 
width : INTEGER; 
height; INTEGER; 
turtleX : REAL; 
turtleY : REAL; 
turtleDir: REAL; 
pen : BOOLEAN; 

Cursor: BOOLEAN; 
curX : INTEGER; 
curY : INTEGER; 
curXAbs : INTEGER; 
curYAbs : INTEGER; 
txtWidth : INTEGER; 
txtHeight: INTEGER; 

END; 

Screen = RECORD (DispEI) 
screen : I.ScreenPtr; 
li : g.LayerlnfoPtr; 
layer: g.LayerPtr; 

END; 

Window = RECORD (DispEI) 
window : I.WindowPtr; 

END; 

DispEIPtr = POINTER TO DispEI; 

ScreenPtr = POINTER TO Screen; 

WindowPtr = POINTER TO Window; 

CONST (* Konstanten für LinePattern *) 

iine = -1; 

dots = 5555H; 

bigdots = 3333H; 

broken = 0F0FH; 

PROCEDURE OpenScreen (scrn: ScreenPtr; 

title: ARRAY OF CHAR; 
x, y, w, h: INTEGER; 
d: SHORTINT; 
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hires, lace: BOOLEAN): BOOLEAN; 

PROCEDURE OpenWindow (win: WindowPtr; 

title: ARRAYOFCHAR; 

x, y, w, h: INTEGER; 

screen: I.ScreenPtr): BOOLEAN; 

PROCEDURE Close (d: DispEIPtr); 

PROCEDURE Init (d: DispEIPtr); 

PROCEDURE SetColors( s: ScreenPtr; VAR cols: ARRAY OF INTEGER); 
PROCEDURE SetCol (s: ScreenPtr; num, R, G, B: INTEGER); 
PROCEDURE NumToRGB (num: INTEGER; VAR r, g, b: INTEGER); 
PROCEDURE RGBToNum (r, g, b: INTEGER): INTEGER; 

PROCEDURE FrontPen (d: DispEIPtr; pen: SHORTINT); 

PROCEDURE BackPen (d: DispEIPtr; pen: SHORTINT); 

PROCEDURE Jaml (d: DispEIPtr); 

PROCEDURE Jam2 (d: DispEIPtr); 

PROCEDURE Complement (d: DispEIPtr); 

PROCEDURE LinePattern (d: DispEIPtr; pat: INTEGER); 

PROCEDURE Clear (d: DispEIPtr); 

PROCEDURE Line (d: DispEIPtr; xl, yl, x2, y2: INTEGER); 

PROCEDURE Dot (d: DispEIPtr; x, y: INTEGER); 

PROCEDURE Reet (d: DispEIPtr; x, y, w, h: INTEGER); 

PROCEDURE Box (d: DispEIPtr; x, y, w, h: INTEGER); 

PROCEDURE Move (d: DispEIPtr; x, y: INTEGER); 

PROCEDURE Draw (d: DispEIPtr; x, y: INTEGER); 

PROCEDURE Text (d: DispEIPtr; x, y: INTEGER; s: ARRAY OF CHAR); 
PROCEDURE Circle (d: DispEIPtr; x, y, r: INTEGER); 

PROCEDURE Ellipse (d: DispEIPtr; x, y, rx, ry: INTEGER); 

PROCEDURE Font (d: DispEIPtr; 

name: ARRAY OF CHAR; 
height: INTEGER): BOOLEAN; 

PROCEDURE SetTurtlePos (d: DispEIPtr; x, y: REAL); 

PROCEDURE GetTurtlePos (d: DispEIPtr; VAR x, y: REAL); 

PROCEDURE SetTurtleDir (d: DispEIPtr; dir: REAL); 

PROCEDURE GetTurtleDir (d: DispEIPtr): REAL; 

PROCEDURE SetPen (d: DispEIPtr); 

PROCEDURE LiftPen (d: DispEIPtr); 

PROCEDURE Forward (d: DispEIPtr; s: REAL); 

PROCEDURE TurnLeft (d: DispEIPtr; alpha: REAL); 

PROCEDURE TumRight (d: DispEIPtr; alpha: REAL); 

PROCEDURE SetCursor (d: DispEIPtr; on: BOOLEAN): BOOLEAN; 
PROCEDURE CursorOn (d: DispEIPtr); 

PROCEDURE CursorOff (d: DispEIPtr); 

PROCEDURE Position (d: DispEIPtr; x, y: INTEGER); 

PROCEDURE Plain (d: DispEIPtr); 

PROCEDURE UnderLinedOn (d: DispEIPtr); 

PROCEDURE UnderLinedOff (d: DispEIPtr); 

PROCEDURE BoldOn (d: DispEIPtr); 

PROCEDURE BoldOff (d: DispEIPtr); 
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PROCEDURE ItalicOn (d: DispEIRr); 

PROCEDURE ItalicOff (d: DispEIRr); 

PROCEDURE Home (d: DispEIRr); 

PROCEDURE ClrHome (d: DispEIRr); 

PROCEDURE ScrollUp (d: DispEIPtr); 

PROCEDURE ScrollDown (d: DispEIPtr); 

PROCEDURE InsertLine (d: DispEIRr; n: INTEGER); 

PROCEDURE DeleteLine (d: DispEIRr; n: INTEGER); 

PROCEDURE WriteLn (d: DispEIRr); 

PROCEDURE Write (d: DispEIRr; Str: ARRAY OF CHAR); 

END Display. 

Dieses mächtige Modul beinhaltet eine große Anzahl von Zeichen¬ 
prozeduren, auch Turtlegraphics und Prozeduren zur komfortablen 
Textausgabe. Das Modul wurde z.B. benutzt, um den Editor OEd zu 
schreiben. 

Die Prozeduren können fast alle auf Screens und auf Windows ange¬ 
wendet werden. Dadurch sind sie sehr flexibel einsetzbar. 

Prozeduren zum Öffnen und Schließen von Screens 
und Windows: 

PROCEDURE OpenScreen(scrn: ScreenPtr; 

title: ARRAY OF CHAR; 
x, y, w, h: INTEGER; 
d: SHORTINT; 

hires, lace: BOOLEAN): BOOLEAN; 

Öffnet einen Screen. scrn ist ein Zeiger auf ein Screen-Record. Der 
Speicher dafür muß vorher mit NEW() alloziiert werden, title ist der 
Titel des Screens. Ist er leer (""), wird ein Screen ohne Titelzeile 
erzeugt, x und y geben die Position (normalerweise 0/0) des Screens, 
w und h seine Breite bzw. Höhe an. 

d ist die Tiefe des Screens, d.h. die Anzahl der Bitplanes, die für den 


13/17 



13. Die Modulbibliothek 


Screen alloziert werden, d darf normalerweise höchstens 5, bei hires 
maximal 4 sein. Die Anzahl der Farben, die auf dem Screen zur Verfü- ( 
gung stehen, ist 2 hoch d. 

hires und lace geben an, ob ein Hires- bzw. Interlace-Screen geöffnet 
werden soll. Bei Hires verdoppelt sich die horizontale, bei Interface 
die vertikale Auflösung. 

Das Ergebnis von OpenScreen ist TRUE, wenn der Screen geöffnet 
werden konnte, sonst FALSE. 

PROCEDURE OpenWindow(win: WindowPtr; 

title: ARRAY OF CHAR; 

x, y, w, h: INTEGER; 

screen: I.ScreenPtr): BOOLEAN; 

Mit OpenWindow() kann analog zu OpenScreertf) ein Fenster geöffnet 
werden, win zeigt auf das Window-Record und muß zuvor alloziiert 
werden, title gibt den Titel des Fensters an. Der Titel kann nicht wie 
bei OpenScreen() durch einen leeren String unterdrückt werden, x, y 
sind die Position, w und h die Breite und Höhe des Fensters. 

Soll das Fenster auf der Workbench geöffnet werden, kann screen ein¬ 
fach auf NIL gesetzt werden. Soll es dagegen auf einem anderen 
Screen geöffnet werden, muß ein Zeiger auf die Intuition-Screen- , 
Struktur übergeben werden. Diese steht in Screen.screen. 

Das Fenster wird mit Größen-, Verschiebungs-, Tiefen- und Schließ- 
gadgets ausgestattet. Um das Größen und das Schließgadget ab zu fra¬ 
gen, müssen die IDCMPFlags noch mit 

I ntuition. Modify IDCM P (wi n. wi ndow, 
LONGSET{lntuition.newSize,lntuition.closeWindow}); 

gesetzt werden. Dann können mit Exec.GetMsg(win.window.user- ( 
Port) Messages über erfolgte Ereignisse geholt werden. Genaueres 
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über die IDCMPMessages kann [cbmrairm] entnommen werden. 

Das Ergebnis von OpenWindow() ist bei Erfolg TRUE, sonst FALSE. 

PROCEDURE Close(d: DispEIPtr); 

Close kann zum Schließen von Screens und Windows verwendet 
werden. Dabei wird aller mit dem Screen oder Window verbundene 
Speicher für Fonts etc. freigegeben. 

PROCEDURE lnit(d: DispEIPtr); 

Init muß bei Fenstern aufgerufen werden, wenn sich deren Größe ge¬ 
ändert hat, um die Breite und Höhe des Fensters neu zu setzen und die 
neue Textbreite und -höhe auszurechnen. 

Farben im Screen setzen: 

PROCEDURE SetColors(s: ScreenPtr; 

VAR cols: ARRAY OF INTEGER); 

Mit SetColors können die Farben eines Screens neu gesetzt werden, 
cols ist ein Feld, das für jede Farbe einen INTEGER-Wert enthält. 
Dieser Wert ist die Summe aus 256 mal dem Rotanteil, 16 mal dem 
Grünanteil und dem Blauanteil der Farbe. In hexadezimaler Schreib¬ 
weise geben die letzten 3 Ziffern die Rot-, Grün- und Blauwerte an. 
Beispiel: pink = OFOFH. 

PROCEDURE SetCol(s: ScreenPtr; 

num, R, G, B: INTEGER); 

SetCol setzt die Farbe num auf die Rot-, Grün- und Blauwerte R, G 
und B. Die Farben sind mit 0 beginnend durchnummeriert. 
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PROCEDURE NumToRGB(num: INTEGER; 

VAR r, g, b: INTEGER); 

PROCEDURE RGBToNum(r, g, b: INTEGER): INTEGER; 

Mit diesen beiden Prozeduren können Farbnummem, wie sie bei 
SetColors übergeben werden, in ihre Rot-, Grün- und Blauanteile zer¬ 
legt werden, und umgekehrt können die Farbwerte in Farbnummern 
umgewandelt werden. 

Zeichenmodi und Zeichenfarben: 

PROCEDURE FrontPen(d: DispEIPtr; pen: SHORTINT); 

Setzt die Zeichenfarbe auf Farbe Nummer pen. 

PROCEDURE BackPen(d: DispEIPtr; pen: SHORTINT); 

Setzt die Hintergrundfarbe. Sie wird nur bei Textausgabe mit dem Zei¬ 
chenmodus Jam2 verwendet. 

PROCEDURE Jam1(d: DispEIPtr); 

Aktiviert den Zeichenmodus Jaml. Dies ist der normale Modus zum 
Zeichnen mit der Farbe, die mit FrontPen() gesetzt wurde. 

PROCEDURE Jam2(d: DispEIPtr); 

Aktiviert den Zeichenmodus Jam2. Jam2 verwendet sowohl den 
Front- als auch den BackPen. Dies ist bei der Textausgabe nötig, wenn 
man z.B. anderen Text überschreiben will. 

PROCEDURE Complement(d: DispEIPtr); 

Setzt den Zeichenmodus Complement. Er bewirkt, daß immer mit der 
logischen Komplementärfarbe des Hintergrundes gezeichnet wird. Die 
logische Komplementärfarbe zur Farbe Nummer x ist bei insgesamt n 
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Farben die Farbe mit der Nummer n-l-x. So ist z.B. bei 8 Farben die 
Komplementärfarbe zu Farbe 2 die Farbe 5. 

Der große Vorteil des Komplementärmodus ist, daß man das Gezeich¬ 
nete sehr leicht wieder rückgängig machen kann, indem man es ein¬ 
fach noch einmal zeichnet. Die Komplementärfarbe der Komplemen¬ 
tärfarbe ist nämlich wieder die ursprüngliche Farbe. Daher werden 
Dinge wie Fadenkreuze oder Ausschneiderechtecke meist mit diesem 
Modus gezeichnet. 

PROCEDURE LinePattern(d: DispEIPtr; pat: INTEGER); 

Beim Zeichnen von Linien kann man ein Muster benutzen. Normaler¬ 
weise hat es den Wert ’line’ (siehe Konstanten in der Definition). Die¬ 
ses Muster erzeugt durchgezogene Linien. Mit LinePattem() kann 
man noch andere Muster setzen. Ein paar oft benötigte Werte sind als 
Konstanten definiert: 

line : durchgezogene Linie 

dots : gepunktete Linie 

bigdots : mit kleinen Strichen gestrichelte Linie 

broken : gestrichelte Linie 

Einfache Zeichenroutinen: 

PROCEDURE Clear(d: DispEIPtr); 

Löscht den Inhalt des Fensters oder Screens. 

PROCEDURE Line(d: DispEIPtr; xl, yl, x2, y2: INTEGER); 

Zeichnet eine Linie von (xl;yl) nach (x2;y2). 

PROCEDURE Dot(d: DispEIPtr; x, y: INTEGER); 

Setzt einen Punkt an der Position (x;y). 
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PROCEDURE Rect(d: DispEIPtr; x, y, w, h: INTEGER); 

Zeichnet ein Rechteck mit der linken oberen Ecke an (x\y), der Breite 
w und der Höhe h. 

PROCEDURE Box(d: DispEIRr; x, y, w, h: INTEGER); 

Zeichnet ein ausgefülltes Rechteck mit der linken oberen Ecke an Po¬ 
sition (x\y), der Breite w und der Höhe h. 

PROCEDURE Move(d: DispEIPtr; x, y: INTEGER); 
PROCEDURE Draw(d: DispEIPtr; x, y: INTEGER); 

Move bewegt einen (unsichtbaren) Cursor an die Position (x;y). Draw 
zeichnet dann von dieser Position aus eine Line nach (x;y) und setzt 
den Cursor auf die neue Position. Mit Move() und Draw() können 
leicht durchgehende Linienzüge gezeichnet werden. 

PROCEDURE Text(d: DispEIRr; 

x, y: INTEGER; 
s: ARRAY OF CHAR); 

Schreibt die Zeichenkette s an die Position (x;y). 

PROCEDURE Circle(d: DispEIPtr; x, y, r: INTEGER); 

Circlef) zeichnet einen Kreis mit dem Mittelpunkt (x\y) und dem Ra¬ 
dius r. 

PROCEDURE Ellipse(d: DispEIRr; x, y, rx, ry: INTEGER); 

Zeichnet eine Ellipse mit dem horizontalen Radius rx und dem verti¬ 
kalen Radius ry. Die restlichen Parameter entsprehen denen von 
Circle(). 
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PROCEDURE Font(d: DispEIPtr; 

name: ARRAY OF CHAR; 
height: INTEGER): BOOLEAN; 

Setzt den Zeichensatz für die Textausgabe, name ist sein Name und 
height seine Höhe. Das Ergebnis ist TRUE, wenn der Font gefunden 
wurde und geladen werden konnte. 

Beispiel: IF NOT Font(w,"topaz.font",9) THEN Error END; 

Turtlegraphic Routinen: 

Turtlegraphic kann man sich sehr anschaulich so vorstellen, daß eine 
Schildkröte mit einem Stift im Maul über den Bildschirm wandert. 
Diese Schildkröte kann nur vorwärts laufen oder sich nach rechts oder 
links drehen. Durch diese elementaren Bewegungen kann man man¬ 
che Grafiken, wie Hilbert-Kurven etc., sehr einfach erzeugen. 

PROCEDURE SetTurtlePos(d: DispEIPtr; x, y: REAL); 
PROCEDURE GetTurtlePos(d: DispEIPtr; VAR x, y: REAL); 

Setzt die Schildkröte an die Position (x;y) bzw. liest ihre aktuelle Posi¬ 
tion aus. 

PROCEDURE SetTurtleDir(d: DispEIPtr; dir: REAL); 
PROCEDURE GetTurtleDir(d: DispEIPtr): REAL; 

Setzt bzw. holt die Richtung, in die die Schildkröte läuft. Dabei be¬ 
deutet 0° nach oben, 90° nach links, 180° nach unten etc. 

PROCEDURE SetPen(d: DispEIPtr); 

PROCEDURE LiftPen(d: DispEIPtr); 

Mit diesen Prozeduren wird die Schildkröte veranlaßt, ihren Stift 
abzusetzen, also das Zeichnen zu beginnen, oder ihn wieder hoch¬ 
zunehmen, also nicht mehr zu zeichnen. 
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PROCEDURE Forward(d: DispEIPtr; s: REAL); 


Dies ist die einzige Prozedur bei Turtlegraphics, die wirklich etwas 
zeichnet. Die Schildkröte wandert eine Strecke der Länge s (in Pixel) 
geradeaus und zeichnet dabei eine Linie, wenn ihr Stift gerade gesetzt 
war. 


PROCEDURE TurnLeft(d: DispEIPtr; alpha: REAL); 
PROCEDURE TurnRight(d: DispEIPtr; alpha: REAL); 

Diese beiden Prozeduren drehen die Schildkröte um alpha Grad nach 
links bzw. rechts. 

Komfortable Textausgabe: 

Mit den folgenden Prozeduren kann Text wie bei einer Console ausge¬ 
geben werden. Dabei wird automatisch in die jeweils nächste Zeile 
gesprungen, wenn man Text über den rechten Fensterrand ausgibt und 
der Text wird hochgescrollt, wenn in der untersten Zeile ein WriteLn 
ausgeführt wird. Zudem kann optional ein rechteckiger Cursor ange¬ 
zeigt werden. 

PROCEDURE SetCursor(d: DispEIPtr; 

on: BOOLEAN): BOOLEAN; 

Schaltet den Cursor je nachdem ob on TRUE oder FALSE ist, ein oder 
aus. Das Ergebnis ist der vorige Zustand des Cursor. Damit kann der 
Cursor kurzzeitig ausgeschaltet, und danach sein vorheriger Zustand 
wieder hergestellt werden, wenn das Ergebnis dieser Prozedur in einer 
Variablen zwischengespeichert wird. 

PROCEDURE CursorOn(d: DispEIPtr); 

PROCEDURE CursorOff(d: DispEIPtr); 

Diese Prozeduren schalten den Cursor ein bzw. aus. Dabei ist es egal, 
ob der Cursor vorher ein- oder ausgeschaltet war. 
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PROCEDURE Position(d: DispEIRr; x, y: INTEGER); 

Setzt den Cursor an die Position (x;y). Die Position wird nicht in 
Pixel, sondern in Zeichen angegeben. Die Anzahl der Zeichen je Zeile 
und Spalte hängt vom verwendeten Zeichensatz ab. Wurde kein Zei¬ 
chensatz mit Font() gesetzt, hängt dieser von den gerade aktiven Pre- 
ferences ab. 

Die Anzahl der Zeichen je Zeile und Spalte steht in DispEl.txtWidth 
bzw. DispEl.txtHeight. Der Cursor sollte nicht an Positionen gesetzt 
werden, die größer oder gleich diesen Werten sind. 

PROCEDURE Plain(d: DispEIPtr); 

Schaltet alle besonderen Textattribute, wie unterstrichen, fett etc., ab. 

PROCEDURE UnderLinedOn(d: DispEIRr); 

PROCEDURE UnderLinedOff(d: DispEIRr); 

Schalten unterstrichenen Text ein bzw. aus. 

PROCEDURE BoldOn(d: DispEIPtr); 

PROCEDURE BoldOff(d: DispEIPtr); 

Schalten Fettschrift ein bzw. aus. 

PROCEDURE ltalicOn(d: DispEIPtr); 

PROCEDURE ltalicOff(d: DispEIPtr); 

Schalten Kursivschrift ein bzw. aus. 

PROCEDURE Home(d: DispEIPtr); 

PROCEDURE ClrHome(d: DispEIRr); 

Setzen den Cursor nach (0,0). ClrHome() löscht zusätzlich den Inhalt 
des Fensters oder Screens. 
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PROCEDURE ScrollUp(d: DispEIPtr); 

PROCEDURE ScrollDown(d: DispEIRr); 

Scrollt den Bildschirm eine Zeile hoch (up) oder herunter (down). Da¬ 
bei bleibt die Cursorposition relativ zur linken oberen Ecke des Fen¬ 
sters oder Screens bestehen. 

PROCEDURE lnsertLine(d: DispEIPtr; n: INTEGER); 

Fügt an Zeile n eine Leerzeile ein und scrollt den Text darunter um ei¬ 
ne Zeile nach unten. 

PROCEDURE DeleteLine(d: DispEIPtr; n: INTEGER); 

Löscht Zeile n und scrollt den Text darunter um eine Zeile nach oben. 

PROCEDURE WriteLn(d: DispEIPtr); 

Setzt den Cursor an die erste Position in die nächste Zeile. 

PROCEDURE Write(d: DispEIPtr; Str: ARRAY OF CHAR); 

Gibt den Text Str an der aktuellen Cursorposition aus. Wird der rechte 
Rand erreicht, so wird der Text aufgeteilt und in der nächsten Zeile 
weitergeschrieben. Geschieht dies am unteren Bildschirmrand, wird 
der Text um eine Zeile hochgescrollt. 
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FileReq: 

DEFINITION FileReq; 

PROCEDURE FileReq(hail: ARRAY OF CHAR; 

VAR name: ARRAY OF CHAR): BOOLEAN; 


END FileReq. 

Die Prozedur dieses Moduls öffnet den Filerequester der ARP-Library 
und bietet damit eine komfortable Möglichkeit, einen Dateinamen 
einzulesen. 

PROCEDURE FileReq(hail: ARRAY OF CHAR; 

VAR name: ARRAY OF CHAR): BOOLEAN; 

Öffnet den ARP-File-Requester. Damit dies funktioniert, muß sich die 
arp.library im LIBS: Directory des Computers befinden, auf dem das 
Programm gerade läuft. Dies ist leider nicht immer der Fall. 

hail ist der Text für die Titelzeile des Requesters. Er sollte normaler¬ 
weise den Programmnamen und die vorgenommene Aktion enthalten. 
name ist der Name der ausgewählten Datei inklusive des Pfades. 

Das Ergebnis von FileReq ist TRUE, wenn der Benutzer "OK" ge¬ 
drückt hat. Bei Cancel ist es FALSE. 

Beispiel: 

IF Requests.FileReq("Load:",name) THEN Load(name) END; 
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FileSystem: 


DEFINITION FileSystem; 

IMPORT 
d : Dos; 

CONST 
ok = 0; 
eof = 1; 
readerr = 2; 
writeerr = 3; 
onlyread = 4; 

onlywrite = 5; / 

toofar = 6; 

outofmem = 7; 

cantopen = 8; 

cantiock = 9; 

TYPE 

FilePtr = POINTER TO File; 

File = RECORD 
handle : d.FileHandlePtr; 

Status : INTEGER; 
write : BOOLEAN; 
name : ARRAY 256 OF CHAR; 

END; 

PROCEDURE Open (VAR file: File; 

name: ARRAY OF CHAR; 
write: BOOLEAN): BOOLEAN; 

PROCEDURE Close(VAR file: File): BOOLEAN; 

PROCEDURE Read(VAR file: File; ( 

VAR to: ARRAY OF BYTE): BOOLEAN; 

PROCEDURE ReadChar(VAR file: File; 

VAR ch: CHAR): BOOLEAN; 

PROCEDURE ReadString(VAR file: File; 

VAR to: ARRAY OF CHAR): BOOLEAN; 

PROCEDURE ReadBlock(VAR file: File; 

to, size: LONGINT): BOOLEAN; 

PROCEDURE Write (VAR file: File; 

VAR from: ARRAY OF BYTE): BOOLEAN; 

PROCEDURE WriteChar(VAR file: File; 

ch: CHAR): BOOLEAN; 

PROCEDURE WriteString(VAR file: File; 

from: ARRAY OF CHAR): BOOLEAN; ( 

PROCEDURE WriteBlock(VAR file: File; 
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from, Size: LONGINT): BOOLEAN; 

PROCEDURE Size(VAR file: File): LONGINT; 

PROCEDURE Move(VAR file: File; 

to: LONGINT): BOOLEAN; 

PROCEDURE Forward (VAR file: File; 

to: LONGINT): BOOLEAN; 

PROCEDURE Backward(VAR file: File; 

to: LONGINT): BOOLEAN; 

PROCEDURE Delete(VAR file: File): BOOLEAN; 

PROCEDURE Exists(name: ARRAY OF CHAR): BOOLEAN; 

END FileSystem. 

Dieses Modul erleichtert das Arbeiten mit Dateien. Es stellt Prozedu¬ 
ren zur Dateiverwaltung zur Verfügung. Die Geschwindigkeit dieses 
Moduls liegt normalerweise über der von Dos, da beim Lesen und 
Schreiben Puffer verwendet werden. 

Um mit diesen Prozeduren zu arbeiten, muß zunächst eine Variable 
vom Typ File deklariert werden. Mit ihr kann dann mit Open() eine 
Datei geöffnet werden, die dann mit den anderen Prozeduren bearbei¬ 
tet werden kann und zum Schluß mit Close() geschlossen wird. 

Die Prozeduren, die ein boolesches Ergebnis liefern, waren immer 
erfolgreich, wenn sie TRUE zurückliefem. Ansonsten steht in dem 
Recordelement File.status eine Fehlemummer, die eine genauere Dia¬ 
gnose der Fehlerursache erlaubt. 

Dateien, die nicht geschlossen wurden, werden automatisch beim Pro¬ 
grammende geschlossen. Es ist jedoch schlechter Stil, sich darauf zu 
verlassen. Man sollte also alle Dateien selbst mit der Prozedur Close() 
schließen. 

PROCEDURE Open(VAR file: File; 

name: ARRAY OF CHAR; 
write: BOOLEAN): BOOLEAN; 

Öffnet die Datei mit dem Namen name. Ist write TRUE, so wird die 
Datei neu erzeugt und zum Schreiben geöffnet. Dann dürfen die Lese- 
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Prozeduren nicht verwendet werden. Ist hingegen write FALSE, so 
darf in die Datei nicht geschrieben werden. 

PROCEDURE Close(VAR file: File): BOOLEAN; 

Schließt die mit Open() geöffnete Datei. 

PROCEDURE Read(VAR file: File; 

VAR to: ARRAY OF BYTE): BOOLEAN; 

Liest LEN(to) Bytes aus der Datei und speichert sie in to. to können 
Variablen aller Typen zugewiesen werden. Read() sollte daher die am 
häufigsten verwendete Leseprozedur sein. 

PROCEDURE ReadChar(VAR file: File; 

VAR ch: CHAR): BOOLEAN; 

ReadChar() liest ein einziges Zeichen aus der Datei. Statt ReadChar() 
kann auch die Prozedur Read() verwendet werden. ReadCharf) ist je¬ 
doch etwas schneller und daher vorzuziehen, wenn man viele Zeichen 
einzeln auslesen möchte. 

PROCEDURE ReadString(VAR file: File; 

VAR to: ARRAY OF CHAR): BOOLEAN; 

Liest eine Zeichenkette aus der Datei. Der String wird durch OX oder 
ein LineFeed (OAX) abgeschlossen. Maximal werden jedoch LEN(to) 
Zeichen gelesen. 

PROCEDURE ReadBlock(VAR file: File; 

to, size: LONGINT): BOOLEAN; 

ReadBlock() ist eine sehr niedrige Prozedur zum Einlesen von Daten¬ 
blocks. Dabei werden size Bytes gelesen und in den Speicher ab 
Adresse to geschrieben. ReadBlocik() sollte nur verwendet werden, 
wenn dies unumgänglich ist. 
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PROCEDURE Write(VAR file: File; 

VAR from: ARRAY OF BYTE): BOOLEAN; 

Schreibt LEN(from) Bytes in die Datei. Dies sollte die am häufigsten 
verwendete Schreibprozedur sein, da dem Parameter from Variablen 
aller Typen zugewiesen werden können. 

PROCEDURE WriteChar(VAR file: File; 

ch: CHAR): BOOLEAN; 

Schreibt ein Zeichen in die Datei. 

PROCEDURE WriteString(VAR file: File; 

from: ARRAY OF CHAR): BOOLEAN; 

Schreibt die Zeichenkette from, gefolgt von einem LineFeed (OAX), in 
die Datei. 

PROCEDURE WriteBlock(VAR file: File; 

from, size: LONGINT): BOOLEAN; 

Dies ist eine Low-Level-Prozedur, die einen Datenblock in die Datei 
schreibt, size gibt die Größe des Blocks und from seine Adresse an. 
Diese Prozedur sollte nur verwendet werden, wenn dies unumgänglich 
ist. 

PROCEDURE Size(VAR file: File): LONGINT; 

Ergibt die Größe der Datei file in Bytes. 

PROCEDURE Move(VAR file: File; 

to: LONGINT): BOOLEAN; 

Setzt den Dateizeiger innerhalb der Datei file, nach to. to muß größer 
oder gleich Null und kleiner oder gleich der Dateigröße sein. 
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PROCEDURE Forward(VAR file: File; 

to: LONGINT): BOOLEAN; 

PROCEDURE Backward(VAR file: File; 

to: LONGINT): BOOLEAN; 

Diese Prozeduren überspringen to Bytes in der Datei file bzw. sprin¬ 
gen to Bytes zurück, so daß diese Bytes z.B. noch einmal gelesen bzw. 
geschrieben werden können. 

PROCEDURE Delete(VAR file: File): BOOLEAN; 

Diese Prozedur sollte aufgerufen werden, wenn beim Erzeugen einer 
Datei ein Fehler auftrat oder das Programm abgebrochen wurde. Sie 
schließt die Datei und löscht sie. 

PROCEDURE Exists(name: ARRAY OF CHAR): BOOLEAN; 

Exists überprüft, ob eine Datei mit dem Namen name existiert und 
gibt TRUE zurück, wenn dies der Fall ist. 

Die Fehlercodes: 

Nach der Ausführung jeder Prozedur des Moduls FileSystem, mit der 
Ausnahme von Exists(), wird einer der folgenden Fehlercodes in das 
Feld Status der Filevariablen geschrieben: 


ok: 

Es trat kein Fehler auf. 

eof: 

Das Dateiende ist erreicht. 

readerr: 

Es trat ein Lesefehler auf. 

writeerr: 

Es trat ein Schreibfehler auf. 

onlyread: 

Es wurde eine Leseprozedur mit einer Datei aufge¬ 
rufen, die nur zum Schreiben geöffnet wurde. 

onlywrite: 

Es wurde eine Schreibprozedur mit einer Datei 
aufgerufen, die nur zum Lesen geöffnet wurde. 
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toofar: 


outofmem: 

cantopen: 

cantlock: 


Mit Move(), Forward() oder Backward() wurde über 
das Dateiende oder den Dateianfang hinausge¬ 
sprungen. 

Es konnte kein Speicher alloziert werden. 

Die Datei konnte nicht geöffnet werden. 

Dos.Lock() auf die Datei war nicht möglich. 
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io: 


( 

DEFINITION io; 

IMPORT d: Dos; 

VAR 

out, in: d.FileHandlePtr; 

Me: d.ProcessPtr; 

PROCEDURE Write(ch: CHAR); 

PROCEDURE WriteLn; 

PROCEDURE WriteString(str: ARRAY OF CHAR); 

PROCEDURE Tab(n: INTEGER); , 

PROCEDURE Clear(); 

PROCEDURE Writelnt(x: LONGINT; n: INTEGER); 

PROCEDURE WriteHex(x: LONGINT; n: INTEGER); 

PROCEDURE Read(VAR ch: CHAR); 

PROCEDURE ReadString(VAR str: ARRAY OF CHAR); 

PROCEDURE Readlnt(VAR x: LONGINT): BOOLEAN; 

PROCEDURE ReadHex(VAR x: LONGINT): BOOLEAN; 

PROCEDURE Length(str: ARRAY OF CHAR): INTEGER; 

PROCEDURE Format (VAR str: String; data: LONGINT); 

END io. 


io stellt grundlegende Ein- und Ausgabeprozeduren zur Verfügung. 
Die Variablen in und out enthalten die FileHandlePtr der Ein- und 
Ausgabedateien. 


PROCEDURE Write(ch: CHAR); 

Gibt ein Zeichen aus. 

PROCEDURE WriteLn; 


Gibt ein Line-Feed aus, d.h. der Cursor wird an den Anfang der näch¬ 
sten Zeile gesetzt. 
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PROCEDURE WriteString(str: ARRAY OF CHAR); 

Gibt eine Zeichenkette aus. 

PROCEDURE Tab(n: INTEGER); 

Gibt einen Tabulatorsprung aus. 

PROCEDURE Clear(); 

Löscht das Ausgabefenster. 

PROCEDURE Writelnt(x: LONGINT; n: INTEGER); 

Gibt eine n-stellige Integerzahl aus. 

PROCEDURE WriteHex(x: LONGINT; n: INTEGER); 

Gibt eine n-stellige Hexadezimalzahl aus. 

PROCEDURE Read(VAR ch: CHAR); 

Liest ein Zeichen von der Tastatur ein. 

PROCEDURE ReadString(VAR str: ARRAY OF CHAR); 

Liest einen String von der Tastatur ein. 

PROCEDURE ReadInt(VAR x: LONGINT): BOOLEAN; 

Liest eine Integerzahl ein. Das Ergebnis ist TRUE, wenn eine korrekte 
Zahl eingegeben wurde. 
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PROCEDURE ReadHex(VAR x: LONGINT): BOOLEAN; 

Liest eine Hexadezimalzahl ein. Das Ergebnis ist TRUE, wenn eine 
korrekte Zahl eingegeben wurde. 

PROCEDURE Length(str: ARRAY OF CHAR): INTEGER; 

Bestimmt die Länge einer Zeichenkette. Diese Prozedur ist die gleiche 
wie Strings.Length. Sie wird hier wiederholt, damit manchmal der 
Import des Modul Strings vermieden werden kann. 

PROCEDURE Format(VAR str: String; data: LONGINT); 

Dies ist eine Low-Level Prozedur die in portablen Programmen nicht 
verwendet werden sollte. Sie ruft Exec.RawDoFmt mit dem String str 
und den Daten an der Adresse data auf und gibt das Ergebnis auf den 
Bildschirm aus. 



Lists 


Lists: 


DEFINITION Lists; 

TYPE 

NodePtr = POINTER TO Node; 

Node = RECORD END; 

List = RECORD END; 

DoProc = PROCEDURE(n: NodePtr); 

PROCEDURE lnit(VAR list: List); 

PROCEDURE AddHead(VAR list: List; n: NodePtr); 

PROCEDURE AddTail(VAR list: List; n: NodePtr); 

PROCEDURE AddBefore(VAR list: List; n, x: NodePtr); 

PROCEDURE AddBehind(VAR list: List; n, x: NodePtr); 

PROCEDURE Remove(VAR list: List; n: NodeRr); 

PROCEDURE RemHead(VAR list: List): NodeRr; 

PROCEDURE RemTail(VAR list: List): NodeRr; 

PROCEDURE Empty(VAR list: List): BOOLEAN; 

PROCEDURE CountElements(VAR list: List): LONGINT; 

PROCEDURE DoForward(VAR list: List; proc: DoProc); 

PROCEDURE DoBackward(VAR list: List; proc: DoProc); 

PROCEDURE Next(VAR n: NodePtr): BOOLEAN; 

PROCEDURE Previous(VAR n: NodePtr): BOOLEAN; 

PROCEDURE Head(VAR list: List): NodeRr; 

PROCEDURE Tail(VAR list: üst): NodePtr; 

END Lists. 

Dieses Modul ermöglicht das einfache Arbeiten mit unsortierten 
Listen. Die Elemente der Liste sind Erweiterungen des Typs Node und 
damit zuweisungskompatibel zu den Prozedurparametem. 


PROCEDURE lnit(VAR list: List); 


lnit muß aufgerufen werden, bevor mit einer Liste gearbeitet wird. Init 
leert die Liste und bereitet sie für die folgende Benutzung vor. 

PROCEDURE AddHead(VAR list: List; n: NodePtr); 
PROCEDURE AddTail(VAR list: List; n: NodePtr); 
PROCEDURE AddBefore(VAR list: List; n, x: NodeRr); 
PROCEDURE AddBehind(VAR list: List; n, x: NodePtr); 

) 

Diese Prozeduren fügen das Element n in die Liste ein. AddHead fügt 
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es vorne und AddTail hinten an. AddBefore und AddBehind fügen es 
vor bzw. hinter dem Element x, das schon in der Liste sein muß, ein. ( 

PROCEDURE Remove(VAR list: List; n: NodePtr); 

PROCEDURE RemHead(VAR list: List): NodeRr; 

PROCEDURE RemTail(VAR iist: List): NodePtr; 

Mit diesen Prozeduren können Elemente aus der Liste entfernt 
werden. Remove entfernt das Element n. RemHead und RemTail ent¬ 
fernen das erste bzw. letzte Element der Liste und geben einen Zeiger 
darauf zurück, so daß damit noch gearbeitet werden kann. 

PROCEDURE Empty(VAR list: List): BOOLEAN; 

PROCEDURE CountElements(VAR list: List): LONGINT; 

Empty ergibt TRUE, wenn die Liste leer ist. CountElements zählt die 
Anzahl der Listenelemente. Empty (list) ist dabei deutlich schneller als 
CountElements( list)=0. 

PROCEDURE DoForward(VAR list: List; proc: DoProc); 
PROCEDURE DoBackward(VAR list: List; proc: DoProc); 

Diese beiden Prozeduren gehen die Liste vorwärts bzw. rückwärts 
durch und rufen proc mit jedem Element der Liste als Parameter auf. 

Dabei darf proc keine Elemente aus der Liste entfernen. 

PROCEDURE Next(VAR n: NodePtr): BOOLEAN; 

PROCEDURE Previous(VAR n: NodePtr): BOOLEAN; 
PROCEDURE Head(VAR list: List): NodePtr; 

PROCEDURE Tail(VAR list: List): NodePtr; 

Next und Previous bestimmen den Nachfolger bzw. Vorgänger von n. 
Existiert dieser, wird n ein Zeiger auf ihn zugewiesen und TRUE 
zurückgegeben. Sonst wird n auf NIL gesetzt. Head und Tail geben ei¬ 
nen Zeiger auf das erste bzw. letzte Element der Liste oder NIL bei | 
leerer Liste zurück. 
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LongRealConversions: 


DEFINITION LongRealConversions; 

PROCEDURE StringToReal(VAR str: ARRAY OF CHAR; 

VAR r: LONGREAL): BOOLEAN; 

PROCEDURE RealToString(r: LONGREAL; 

VAR str: ARRAY OF CHAR; 

v,n: INTEGER; 

exp: BOOLEAN): BOOLEAN; 

END LongRealConversions. 

Diese Prozeduren wandeln Zeichenketten in LONGREAL-Zahlen um 
und umgekehrt. 

PROCEDURE StringToReal(VAR str: ARRAY OF CHAR; 

VAR r: LONGREAL): BOOLEAN; 

Wandelt die Zeichenkette str in eine LONGREAL-Zahl um. Die Zei¬ 
chenkette muß folgender Grammatik entsprechen: 


digit = "0" I "1" I "2" I "3" I "4" I "5" I "6" I "7 
sign = 


M 


int= {digit}. 

real = sign int ["." int] [("E’T'e") sign int]. 


I "8"I"9" 


Der String darf beliebig Leerzeichen enthalten. Sie werden ignoriert. 
Das Ergebnis der Prozedur ist TRUE, wenn der String eine Zahl 
enthielt, die der Grammatik entspricht. 


Hier einige Beispiele: 
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String: 

LongReal: 

Ergebnis: 

"+123" 

= 123 

TRUE 

"12.345E2" 

= 1234.5 

TRUE 

»Mt 

= 0 

TRUE 

"-.3E-3" 

= -0.0003 

TRUE 

"12-3" 

= — 

FALSE 

"23.44" 

= - 

FALSE 


PROCEDURE RealToString(r: LONGREAL; 

VAR str: ARRAY OF CHAR; 

v, n: INTEGER; 

exp: BOOLEAN): BOOLEAN; 

Wandelt r in eine Zeichenkette um. Dabei bekommt das Ergebnis v 
Vorkomma- und n Nachkommastellen. Wenn exp TRUE ist, wird ein 
Exponent erzeugt, str muß ohne Exponent mindestens n+v+3 und mit 
Exponent mindestens n+v+8 Zeichen lang sein. Das Ergebnis ist 
TRUE, wenn die Zahl in die durch v, n und exp vorgegebene Schablo¬ 
ne paßt. 

Beispiel: 

RealToString(123.456,str,l,7,TRUE) wandelt 123.456 in die wissen¬ 
schaftliche Darstellung um. Das Ergebnis ist "1.23456700E+002". 
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LongReallnOu t: 

DEFINITION LongReallnOut; 

PROCEDURE WriteReal(r: LONGREAL; 

v, n: INTEGER; exp: BOOLEAN): BOOLEAN; 

PROCEDURE Read Real (VAR r: LONGREAL): BOOLEAN; 

END LongReallnOut. 

Die Prozeduren dieses Moduls erlauben die Ein- und Ausgabe von 
LONGREAL- Zahlen. WriteReal() gibt die LONGREAL-Zahl r auf 
dem Bildschirm aus. Die Parameter v, n und exp entsprechen den Pa¬ 
rametern der Prozedur LongRealConversions.RealToString. 

ReadReal() liest eine LONGREAL-Zahl von der Tastatur ein. Die 
Syntax entspricht der im Zusammenhang mit LongRealConver- 
sions.StringToReal angegebenen Grammatik. Das Ergebnis ist TRUE, 
wenn eine korrekte Zahl eingegeben wurde. 
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Mouse: 


DEFINITION Mouse; 

VAR 

leftButton: BOOLEAN; 
rightButton: BOOLEAN; 
midButton: BOOLEAN; 

PROCEDURE WaitLMB; 
PROCEDURE WaitRMB; 

END Mouse. 


Dieses Modul bietet eine saubere und einfache Methode, die Mausta¬ 
sten abzufragen. Die Variablen leftButton, rightButton und midButton 
sind jeweils genau dann TRUE, wenn der linke bzw. rechte oder der 
eventuell existierende mittlere Mouseknopf gedrückt sind. 

Um auf die linke oder rechte Maustaste zu warten, kann man 
WaitLMB() oder WaitRMB() aufrufen. 



NoGuru 


NoGuru: 

DEFINITION NoGuru; 

PROCEDURE Assert(cc: BOOLEAN; msg: ARRAY OF CHAR); 

END NoGuru. 

Das Modul NoGuru sollte von jedem guten Amiga-Oberon-Prog- 
ramm, zumindest während der Testphase, importiert werden. Wird 
dieses Modul importiert, so werden Laufzeitfehler in ein Fehlermel¬ 
dungen umgewandelt. 

Normalerweise führen Laufzeitfehler zum Abbruch von Programmen. 
Dabei wird keine Meldung ausgegeben, lediglich beim Start vom CLI 
erscheint die Meldung ’Unable to load "XYZ":’, da abgestürzte Obe¬ 
ronprogramme -1 als Return-Wert zurückgeben. Dies ist der einzige 
Return-Wert, der beim normalen CLI-Start eines Programms eine 
Meldung ausgibt. 

Wird NoGuru importiert, so wird eine detaillierte Fehlermeldung 
ausgegeben, und das Progamm bleibt noch so lange im Speicher, bis 
die Return-Taste gedrückt wird. Die Meldung sieht z.B. folgenderma¬ 
ßen aus: 

Guru #0003: Trap # 3 (Nil-Zeiger dereferenziert) 
sr 0004 
pc 002AC624 
<RETURN> 

In diesem Fall wurde ein nicht initialisierter Zeiger dereferenziert oder 
eine nicht initialisierte Prozedurvariable aufgerufen. Dies führt zu ei¬ 
nem "TRAP #3". NoGuru übersetzt diesen Trap in die Fehlermeldung 
’Nil-Zeiger dereferenziert’. Hinter ’sr’ steht hexadezimal der Inhalt 
des Statusregisters zum Zeitpunkt des Laufzeitfehlers, und hinter ’pc’ 
steht die Adresse, an der das Programm abgestürzt ist. 


13/43 



13. Die Modulbibliothek 


Wer sich mit 68000er Assembler auskennt, kann mit einem Dis¬ 
assembler den Code in der Nähe des Fehlers disassemblieren und dar¬ 
aus Rückschlüsse auf die Adresse im Quelltext ziehen. 

NoGuru gibt folgende Laufzeitfehler aus: 

Busfehler 
Addressfehler 
Illegaler Befehl 
Division durch 0 
Chk (Bereichsfehler) 

TrapV (Überlauf) 

Privilegverletzung 
Trace-Vektor 
Line-A 
Line-F 

Trap # 0 (Bereichsfehler) 

Trap # 1 (ungültiger Case index) 

Trap # 2 (Stack Überlauf) 

Trap # 3 (Nil-Zeiger dereferenziert) 

Trap # 4 (Funktion ohne RETURN beendet) 

Trap # 5 (Typ-Check Fehler) 

Die Prozedur Assert() kann verwendet werden, um im Fehlerfall Pro¬ 
gramme abzubrechen. Assert() bricht ein Programm ab und gibt die 
Fehlermeldung msg aus, wenn die Bedingung cc nicht erfüllt ist. 

Beispiel: 

NEW(p); NoGuru.Assert(p#NIL,"Kein Speicher mehr!"); 
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NoGuruRq 

DEFINITION NoGuruRq; 

END NoGuruRq. 

NoGuruRq entspricht in der Funktionsweise dem Modul NoGuru. Der 
Unterschied zu NoGuru ist, daß NoGuruRq die Fehlermeldung bei ei¬ 
nem Laufzeitfehler in einem Requester und nicht über das Modul io 
ausgibt. Dadurch wird beim Workbenchsstart kein io-Fenster geöffnet. 
In dem Requester werden Informationen wie der Inhalt des Statusregi¬ 
sters und der Programmzähler nicht angezeigt. 


13/45 



13. Die Modulbibliothek 


OberonLib: 


DEFINITION Oberonüb; 

VAR 

HaltProc: PROCEDURE(); 

OldSP : POINTER TO STRUCT END; 

Result: LONGINT; 
dosCmdLen: LONGINT; 
dosCmdBuf: LONGINT; 
wbStarted: BOOLEAN; 
wbenchMsg : LONGINT; 

Me : POINTER TO STRUCT END; 

MemReqs: LONGSET; 

PROCEDURE Mul(a, b: LONGINT); LONGINT; 

PROCEDURE ModDiv(a, b: LONGINT): LONGINT; 

PROCEDURE New(VAR adr: LONGINT; size: LONGINT); 

PROCEDURE Dispose(VAR adr; LONGINT); 

PROCEDURE Copy(source: ARRAY OF CHAR; VAR dest: ARRAY OF CHAR); 
PROCEDURE StackChk(size: LONGINT); 

END OberonLib. 


OberonLib ist das Basismodul aller Oberon-Programme. Es wird au¬ 
tomatisch von jedem anderen Modul importiert. Es hat die Aufgabe, 
beim Programmstart übergebene Werte, wie die im CLI übergebene 
Parameterzeile und den zur Verfügung stehenden Stackbereich, zu 
speichern sowie beim Start von der Workbench aus die Workbench- 
Message zu holen. Genauere Informationen über Programmstartup- 
Code stehen in [cbm:lb]. 

Zudem beinhaltet dieses einige Modul einfache Prozeduren. Der 
Compiler erzeugt automatisch Aufrufe für diese Prozeduren, wenn 
man z.B. LONGINT-Werte multipliziert oder Speicher mit NEW() 
alloziert. 


Die Variablen und Prozeduren dieses Moduls sollten mit Vorsicht ver¬ 
wendet und nicht verändert werden. Die Variablen im einzelnen: 
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HaltProc: 

Enthält die Prozedur, zu der die Standardprozedur HALT() springt. 

OldSP: 

Der Wert des Stackpointers zu Programmbeginn. 

Result: 

Der Return-Wert des Programms. Der Parameter von HALT() wird in 
diese Variable geschrieben. HALT(x) kann durch "OberonLib.Result 
:= x; OberonLib.HaltProc;" simuliert werden. 

dosCmdLen: 

Länge der CLI-Kommandozeile. 

dosCmdBuf: 

Zeiger auf die CLI-Kommandozeile. 

wbStarted: 

TRUE, wenn das Programm von der Workbench aus gestartet wurde. 

wbenchMsg: 

Beim Workbenchstart die Workench-Message. 

Me: 

Zeiger auf die Task-Struktur des Programms. Exec.FindTask(NIL) er¬ 
gibt ’ : esen Wert. 
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MemReqs: 

Typ des Speichers, der mit NEW() alloziert wird. Normalerweise ist 
dies LONGSET{Exec.memClear}. Um z.B. Chip-Memory zu 
allozieren, sollte Exec.chip gesetzt werden. 

Beispiel: 

INCL(OberonLib. Mem Reqs, Exec.chip); 

NEW(bitplaneptr); 

EXCL(OberonLib.MemReqs, Exec.chip); 

Genauere Informationen zu den verschiedenen Speichertypen können 
[cmb:exec] entnommen werden. 

PROCEDURE Mul(a, b: LONGINT): LONGINT; 

PROCEDURE ModDiv(a, b: LONGINT): LONGINT; 

Diese beiden Prozeduren werden automatisch aufgerufen, wenn man 
LONGINT-Zahlen multipliziert, dividiert oder ihren Modulo-Wert 
berechnet. ModDiv gibt im Register DO das Ergebnis von "a DIV b" 
zurück. In Dl steht der Wert von "a MOD b". 

PROCEDURE New(VAR adr: LONGINT; size: LONGINT); 
PROCEDURE Dispose(VAR adr: LONGINT); 

Diese Prozeduren werden zur Speicherverwaltung benötigt. New() al¬ 
loziert einen Block der Größe size und schreibt seine Adresse in adr. 
Dispose gibt diesen Speicher wieder frei. Dispose() entspricht exakt 
der Standardprozedur DISPOSE(). 

PROCEDURE Copy(source: ARRAY OF CHAR; 

VAR dest: ARRAY OF CHAR); 

Dies" Prozedur wird aufgerufen, wenn die Standardprozedur COPY() 
verwendet wird. 
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PROCEDURE StackChk(size: LONGINT); 

StackChk wird, bei eingeschalteter Stackprüfung, automatisch zu Be¬ 
ginn jeder Prozedur aufgerufen, um zu prüfen, ob noch size Bytes Sta¬ 
pelspeicher vorhanden sind. Ist dies nicht der Fall, wird das Programm 
abgebrochen. 
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Random: 

DEFINITION Random; 

PROCEDURE RND(n: INTEGER): INTEGER; 

PROCEDURE PutSeed(seed: LONGINT); 

END Random. 

Mit diesem Programm können Pseudo-Zufallszahlen berechnet 
werden. RND(n) ergibt eine Zahl, die zwischen 0 und n-1 liegt. Um 
zum Beispiel einen Würfel zu simulieren, kann folgende Zeile ver¬ 
wendet werden: 

äugen := RND(6) + 1; 

Die Zufallszahlen sind bei jedem neuen Programmstart un ter- 
schiedlich, da der Zufallsgenerator mit der Videostrahlposition initiali¬ 
siert wird und damit jedesmal einen anderen Wert enthält. 

Werden exakt gleiche Programmläufe benötigt, kann die Ausgangs¬ 
zahl mit PutSeed() gesetzt werden. Wird am Programmanfang mit 
PutSeed() immer die gleiche Ausgangszahl gesetzt, liefert auch RND() 
die gleiche Wertefolge. 



RealConversions 


RealConversions: 


DEFINITION RealConversions; 

PROCEDURE StringTo Real (VAR str: ARRAY OF CHAR; 

VAR r: REAL): BOOLEAN; 
PROCEDURE RealToString(r: REAL; 

VAR str: ARRAY OF CHAR; 
v, n: INTEGER; 
exp: BOOLEAN): BOOLEAN; 

END RealConversions. 


Diese Prozeduren wandeln Zeichenketten in REAL-Zahlen und umge¬ 
kehrt um. 

PROCEDURE StringToReal(VAR str: ARRAY OF CHAR; 

VAR r: REAL): BOOLEAN; 

Wandelt die Zeichenkette str in eine REAL-Zahl um. Die Zeichenket¬ 
te muß folgender Grammatik entsprechen: 


digit = "0" I "1" i "2" I "3" I "4" I "5" I "6" I "7" I "8" I "9". 


sign = ["+"1"-"]. 
int= {digit}. 

real = sign int ["." int] [("E'T'e") sign int]. 


Der String darf beliebig Leerzeichen enthalten. Sie werden ignoriert. 
Das Ergebnis der Prozedur ist TRUE, wenn der String eine Zahl 
enthielt, die der Grammatik entspricht. 


Hier ein paar Beispiele: 
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String: 

"+123" 

"12.345E2" 

ft»» 

"-.3E-3" 

"12-3" 

"23.+4" 


Real: 

= 123 
= 1234.5 
= 0 

= -0.0003 


Ergebnis: 

TRUE 

TRUE 

TRUE 

TRUE 

FALSE 

FALSE 


PROCEDURE RealToString(r: REAL; 

VAR str: ARRAY OF CHAR; 

v, n: INTEGER; 

exp: BOOLEAN): BOOLEAN; 

Wandelt r in eine Zeichenkette um. Dabei bekommt das Ergebnis v 
Vorkomma- und n Nachkommastellen. Wenn exp TRUE ist, wird ein 
Exponent erzeugt, str muß ohne Exponent mindestens n+v+3 und mit 
Exponent mindestens n+v+1 Zeichen lang sein. Das Ergebnis ist 
TRUE, wenn die Zahl in die durch v, n und exp vorgegebene Schablo¬ 
ne paßt. 

Beispiel: 

RealToString(123.456,str,l,7,TRUE) wandelt 123.456 in die wissen¬ 
schaftliche Darstellung um. Das Ergebnis ist "1.23456700E+02". 
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ReallnOut: 

DEFINITION ReallnOut; 

PROCEDURE WriteReal(r: REAL; v, n: INTEGER; exp: BOOLEAN): BOOLEAN; 
PROCEDURE ReadReal(VAR r: REAL): BOOLEAN; 

END ReallnOut. 

Die Prozeduren dieses Moduls erlauben die Ein- und Ausgabe von 
REAL-Zahlen. WriteReal gibt r auf den Bildschirm aus. Die Parame¬ 
ter v, n und exp entsprechen den Parametern der Prozedur 
RealConversions.RealToString. 

ReadReal liest entsprechend eine REAL-Zahl von der Tastatur ein. 
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Requests: 

DEFINITION Requests; 

PROCEDURE Request(head, msg, pos, neg: ARRAYOF CHAR): BOOLEAN; 
PROCEDURE Assert(cc: BOOLEAN; msg: ARRAY OF CHAR); 

PROCEDURE BreakPoint(msg: ARRAY OF CHAR); 

END Requests. 

Requests erlaubt den einfachen Aufruf von Requestem. Dabei wird In- 
tuitions AutoRequestO benutzt. 

PROCEDURE Request(head, msg, 

pos, neg: ARRAY OF CHAR): BOOLEAN; 

Requestf) öffnet einen Intuition.AutoRequest()-Requester. Dieser be¬ 
steht aus 2 Textzeilen und 2 Gadgets. head und msg enthalten die bei¬ 
den Textzeilen, pos und neg bestimmen den Inhalt der Gadgets. pos 
kann dabei einen leeren String enthalten Dies bewirkt, daß der 
Requester nur 1 Gadget bekommt. 

Beispiel: 

IF Requests.RequestfOEd Request:","Save modified text?", 
"oh, yes’V’no, thanks") THEN Save(text) END; 

PROCEDURE Assert(cc: BOOLEAN; 

msg: ARRAY OF CHAR); 

Mit Assert() kann ein Programm leicht bei einem Fehler abgebrochen 
werden. Ist cc FALSE, wird ein Requester mit der Meldung msg ge¬ 
öffnet und das Programm beendet. 

Beispiel: 

N. ,V(p); Requests.Assert(p#NIL,"Kein Speicher mehr!"); 
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PROCEDURE BreakPoint(msg: ARRAY OF CHAR); 

BreakPoint() kann während der Testphase von Programmen verwen¬ 
det werden, um Fehler zu lokalisieren. Es öffnet einen Requester mit 
der Meldung msg. Dabei kann man wählen, ob man im Programm 
fortfahren oder es beenden möchte. 
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SecureDos: 


DEFINITION SecureDos; 

VAR 

Me: d.ProcessPtr; 

PROCEDURE Open(name: LONGINT; accessMode: LONGINT): d.FileHandlePtr; 
PROCEDURE Close(file: d.FileHandleRr); 

PROCEDURE Lock(name: LONGINT; accessMode: LONGINT): d.FileLockRr; 
PROCEDURE ParentDir(lock: d.FileLockPtr): d.FileLockRr; 

PROCEDURE DupLock(lock: d.FileLockRr): d.FileLockPtr; 

PROCEDURE UnLock(lock: d.FileLockPtr); 

END SecureDos. 

Die Prozeduren dieses Moduls entsprechen denen der Dos-Library. 
Der Vorteil ist, daß diese Prozeduren die Resourcen beim Programm¬ 
ende automatisch freigeben, d.h. daß bei einem Programmabbruch 
Dateien, die noch geöffnet sind, geschlossen werden, und daß alle 
Locks freigegeben werden. 

SecureDos setzt beim Programmende automatisch das ’current 
directory’ auf den Wert vor dem Programmstart. 



Strings 


Strings: 


DEFINITION Strings; 

PROCEDURE Length(str: ARRAY OF CHAR): INTEGER; 

PROCEDURE Append(VAR sl: ARRAY OF CHAR; 
s2: ARRAY OF CHAR); 

PROCEDURE Occurs(VAR s: ARRAY OF CHAR; 

search: ARRAY OF CHAR): INTEGER; 

PROCEDURE OccursPos(VAR s: ARRAY OF CHAR; 
search: ARRAY OF CHAR; 

Start: INTEGER ): INTEGER; 

PROCEDURE Cut(VAR s: ARRAY OF CHAR; 
from, ent: INTEGER; 

VAR to: ARRAY OF CHAR); 

PROCEDURE Upper(VAR s: ARRAY OF CHAR); 

PROCEDURE lnsert(VAR s: ARRAY OF CHAR; 
at: INTEGER; 
str: ARRAY OF CHAR); 

PROCEDURE Delete(VAR s: ARRAY OF CHAR; 
at, ent: INTEGER); 

PROCEDURE AppendChar(VAR s: ARRAY OF CHAR; 
c: CHAR); 

PROCEDURE lnsertChar(VAR s: ARRAY OF CHAR; 
at: INTEGER; 
c: CHAR); 


END Strings. 


Die Prozeduren dieses Moduls dienen zur einfachen Bearbeitung von 
Zeichenketten. 

PROCEDURE Length(str: ARRAY OF CHAR): INTEGER; 


Zählt die Anzahl der Zeichen, die str enthält, bis zum Ende-Zeichen 
OX oder LEN(str). 


PROCEDURE Append(VAR sl: ARRAY OF CHAR; 

s2: ARRAY OF CHAR); 


Hängt s2 an sl an. 
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Beispiel: s:="Halli"; Strings.Append(s,"Hallo"); 

Danach enthält s den String "HalliHallo". 

PROCEDURE Occurs(VAR s: ARRAY OF CHAR; 

search: ARRAY OF CHAR): INTEGER; 

Überprüft, ob der String search in s enthalten ist. Dabei werden Groß- 
und Kleinbuchstaben unterschieden. Das Ergebnis ist die Position in¬ 
nerhalb von s, an der search das erstemal vorkommt oder -1, wenn 
search nicht in s enthalten ist. 

PROCEDURE OccursPos(VAR s: ARRAY OF CHAR; 

search: ARRAY OF CHAR; 

Start: INTEGER): INTEGER; 

OccursPos funktioniert ähnlich wie Occurs: Es wird auch geprüft, ob 
search in s ab Zeichen Nummer Start enthalten ist. OccursPos(sl,s2,0) 
ist also das gleiche wie Occurs(sl,s2). Mit OccursPos() können die 
Positionen von allen Vorkommen von search in s gefunden werden: 

p:=-1; 

LOOP 

p := OccursPos(s,search,p+1); 

IF p<0 THEN EXIT END; 
io.WriteString("Vorkommen an Position"); 
io.Writelnt(p,2); io.WriteLn; 

END; 

PROCEDURE Cut(VAR s: ARRAY OF CHAR; 

from, ent: INTEGER; 

VAR to: ARRAY OF CHAR); 

Cut nimmt, von Zeichen from ausgehend, ent Zeichen aus s und ko¬ 
piert sie nach to. 
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Beispiel: sl := "Abstürzende Brieftauben"; Cut(s1,12,5,s2); 

Nun enthält s2 den Teilstring "Brief. 

PROCEDURE Upper(VAR s: ARRAY OF CHAR); 

Verwandelt alle Kleinbuchstaben von 5 mit der Standardfunktion 
CAP() in Großbuchstaben. 

PROCEDURE lnsert(VAR s: ARRAY OF CHAR; 
at: INTEGER; 
str: ARRAY OF CHAR); 

Fügt str an der Position at in s ein. 

Beispiel: s := "Pogo"; lnsert(s,2,"go in To"); 

Danach enthält s den String "Pogo in Togo". 

PROCEDURE Delete(VAR s: ARRAY OF CHAR; 

at, ent: INTEGER); 

löscht ent Zeichen von der Position at ausgehend aus s. 

Beispiel: s := "Pogo in Togo"; Delete(s,2,8); 

Danach enthält s den String "Pogo". 

PROCEDURE AppendChar(VAR s: ARRAY OF CHAR; 

c: CHAR); 

Fügt das Zeichen c an die Zeichenkette an. Diese Prozedur entspricht 
Append(), sie kann jedoch nur einzelne Zeichen anfügen. 
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PROCEDURE lnsertChar(VAR s: ARRAY OF CHAR; 

at: INTEGER; 
c: CHAR); 

Fügt das Zeichen c an der Postion at in s ein. InsertChar() entspricht 
Insert(), kann jedoch nur einzelne Zeichen einfügen. 


( 
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14. Die Amiga-Interface-Module: 

Diese Module ermöglichen den Zugriff auf die Routinen der Amiga- 
Libraries (Betriebssystembibliotheken) und das Arbeiten mit den De¬ 
vices (logische Geräte). 

ARP: 

Dieses Modul ermöglicht den direkten Zugriff auf die Public-Domain 
Library des ’Amiga Resource Projects’. Dies ist keine Standard- 
Library, deshalb können Programme, die sie benutzen nur auf Rech¬ 
nern verwendet werden, die sie installiert haben. 

Der Quelltext befindet sich auf der dritten Oberon-Diskette und wird 
hier nicht wiederholt, da er sehr lang ist. 
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Audio: 

( 

MODULE Audio; (* $lmplementation- *) 

IMPORTe*: Exec; 

CONST 

audioName * = "audio.device"; 
hardChannels * = 4; 
allocMinprec * = -128; 
allocMaxprec * = 127; 
free * = e.nonstd+0; 
setPrec * = e.nonstd+1; 
finish * = e.nonstd+2; 

perVol * = e.nonstd+3; * 

lock * = e.nonstd+4; 

waitCycle * = e.nonstd+5; 

nollnit * = 32; 

allocate * = noUnit+0; 

pervol * = SHORTSET{4}; 

syncCycle * = SHORTSET{5}; 

noWait * = SHORTSET{6}; 

writeMessage * = SHORTSET{7}; 

noAllocation * = -10; 

allocFailed* = -11; 

channelStolen * = -12; 

TYPE 

lOAudio * = STRUCT 
request *: e.lORequest; 
allocKey * : INTEGER; 
data *: e.ADDRESS; 

length *: LONGINT; ( 

period *: INTEGER; 

volume *: INTEGER; 

cycles *: INTEGER; 

writeMsg *: e.Message; 

END; 

lOAudioPtr * = POINTER TO JOAudio; 

END Audio. 
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BootBlock: 


MODULE BootBlock; (* $lmplementation- *) 

IMPORT sys: SYSTEM; 

TYPE 

BootBlock * = STRUCT 
id:ARRAY 4 OF CHAR; 
chkSum *: LONGINT; 
dosBlock *: LONGINT; 

END; 

CONST 
bootSects * = 2; 
idDos * = ’DOS’; 
idKick * = ’KICK’; 

nameDos * = sys.VAL(LONGINT,"DOS"); (* ’DOS’ *) 
nameKick* = sys.VAL(LONGINT,"KICK"); (* ’KICK’ *) 

END BootBlock. 


) 
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ClipBoard: 


MODULE Clipboard; (* $lmplementation- *) 

IMPORTe*: Exec; 

CONST 

clipboardName * = "clipboard.device"; 

post * = e.nonstd+O; 

currentReadld * = e.nonstd+1; 

currentWriteld * = e.nonstd+2; 

obsoleteld * = 1; 

TYPE 

ClipboardUnitPartial * = STRUCT 
node *: e.Node; 
unitNum *: LONGINT; 

END; 

ClipboardUnitPartialPtr * = POINTER TO ClipboardUnitPartial; 

lOClipboard * = STRUCT 
message *: e.Message; 
device *: e.DevicePtr; 
unit *: e.UnitPtr; 
command * : INTEGER; 
flags * : SHORTSET; 
error *: SHORTINT; 
actual *; LONGINT; 
length *: LONGINT; 
data* :e.ADDRESS; 

Offset *; LONGINT; 
clipID *: LONGINT; 

END; 

lOClipboardPtr * = POINTER TO lOClipboardPtr; 

CONST 

primaryClip * = 0; 

TYPE 

SatisfyMsg * = STRUCT 
msg *: e.Message; 
unit *; INTEGER; 
clipID *: LONGINT; 

END; 

SatisfyMsgPtr * = POINTER TO SatisfyMsg; 

END Clipboard. 
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Console: 


MODULE Console; 

IMPORT e: Exec, 
ie: InputEvent, 
km: KeyMap; 

CONST 

consoleName * = "console.device"; 

askKeyMap * = e.nonstd+0; 

setKeyMap * = e.nonstd+1; 

askDefaultKeyMap * = e.nonstd+2; 

setDefaultKeyMap * = e.nonstd+3; 

primary * = 0; 

bold * = 1; 

italic * = 3; 

underscore * = 4; 

negative * = 7; 

black * = 30; 

red * = 31; 

green * = 32; 

yellow * = 33; 

blue * = 34; 

magenta * = 35; 

cyan * = 36; 

white * = 37; 

default * = 39; 

blackBg * = 40; 

redBg * = 41; 

greenBg * = 42; 

yellowBg * = 43; 

blueBg * = 44; 

magentaBg * = 45; 

cyanBg * = 46; 

whiteBg * = 47; 

defaultBg * = 49; 

clrO * = 30; 

clrl * = 31; 

clr2 * = 32; 

clr3 * = 33; 

clr4 * = 34; 

clr5 * = 35; 

clr6 * = 36; 

clr7 * = 37; 

clrOBg * = 40; 

clrl Bg * = 41; 
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clr2Bg * = 42; 
clr3Bg * = 43; 
clr4Bg * = 44; 
clr5Bg * = 45; 
clr6Bg * = 46; 
clr7Bg * = 47; 
dsrCpr * = 6; 
ctcHSetTab * = 0; 
ctcHClrTab * = 2; 
ctcHClrTabsAII * = 5; 
tbcHClrTab * = 0; 
tbcHClrTabsAII * = 3; 
mLnm * = 20; 
mAsm * = ">1"; 
mAwm * = "?7"; 


VAR 

condev*: e.DevicePtr; (* Dies muß auf das Console-Device zeigen*) 

PROCEDURE CDInputHandler* {condev,-42}(events{8}:ie.lnputEventRr; 

device1{9}:e.ADDRESS):ie.lnputEventPtr; 
PROCEDURE RawKeyConvert* {condev,-48}(events{8}:ie.lnputEventPtr; 

buffer{9}:e. ADDRESS; 

length{1} :LONGINT; 

keyMap{10}:km.KeyMapPtr):LONGINT; 


END Console. 
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DiskFont: 


MODULE DiskFont; 

IMPORT e: Exec, 
g: Graphics, 

I: Intuition, 
s: SYSTEM; 

CONST 

maxFontPath * = 256; 
maxFontName * = 32; 
fchld * = 0F00H; 
dfhld * = 0F80H; 

(* AvailFontTypes *) 
memory * = 0; 
disk * = 1; 

TYPE 

FontContents * = STRUCT 
fileName * : ARRAY maxFontPath OF CH AR; 
ySize * : INTEGER; 
style *: SHORTSET; (* g.FontStyles *) 
flags *: SHORTSET; (* g.FontFlags *) 

END; 

FontContentsHeader * = STRUCT 
fileld * : INTEGER; 
numEntries *: INTEGER; 

(*fc *: ARRAY numEntries OF FontContents *) 

END; 

FontContentsHeaderPtr * = POINTER TO FontContentsHeader; 
DiskFontHeader * = STRUCT 
df *: e.Node; 
fileld * : INTEGER; 
revision * : INTEGER; 

Segment *: e.BPTR; 

name *: ARRAY maxFontName OF CHAR; 
tf *: g.TextFont 
END; 

AvailFont * = STRUCT 
type * : SET; (* AvailFontTypes *) 
attr * : g.TextAttr; 

END; 

AvailFontHeader * = STRUCT 
numEntries *: INTEGER; 

(*af *: ARRAY numEntries OF AvailFont;*) 
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END; 

AvailFontHeaderPtr * = POINTER TO AvailFontHeader; 

VAR 

base *: e. Library Rr; 

PROCEDURE AvailFonts * {base,-36}( 

buffer{8}: e.ADDRESS; 
bufBytes{0}: LONGINT; 
types{1}: SET (* AvailFontTypes *)):LONGINT; 
PROCEDURE OpenDiskFont * {base,-30}( 

textAttr{8}: g.TextAttrPtr): g.TextFontRr; 

(* $OvflChk- $RangeChk- $StackChk- $NilChk- $ReturnChk- $CaseChk- *) 

BEGIN 

base := e.OpenLibrary("diskfont.library ,, ,33); 

IF base=NILTHEN 

s.SETREG(0,I.DisplayAlert(0,"x00x64x14missing diskfont.library! M ,50)); 
HALT(O) 

END; 

CLOSE 

IF base#NILTHEN e.CloseLibrary(base) END; 

END DiskFont. 
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Dos: 


MODULE Dos; 

IMPORT e: Exec, s: SYSTEM; 

CONST 

dosName * = "dos.iibrary"; 

(* accessMode bei Open(): *) 
readWrite * = 1004; 
readOnly * = 1005; 
oldFile * = readOnly; 
newFile * = 1006; 

(* mode der Seek(): *) 
beginning * = -1; 
current * = 0; 
end * = 1; 

(* accessMode bei Lock(): *) 
sharedLock * = -2; 
exclusiveLock * = -1; 

accessRead * = sharedLock; (* synonym *) 
accessWrite * = exclusiveLock; (* synonym *) 
ticksPerSecond * = 50; 

TYPE 

BSTR * = BPOINTER TO ARRAY 256 OF CHAR; 
DeviceListPtr * = BPOINTER TO DeviceList; 
DeviceListVolPtr * = BPOINTER TO DeviceListVol; 
FileHandlePtr * = BPOINTER TO FileHandle; 
FileLockPtr * = BPOINTER TO FileLock; 

Date * = STRUCT 
days *: LONGINT; 
minute *: LONGINT; 
tick * : LONGINT; 

END; 

DatePtr * = POINTER TO Date; 

CONST 

(* ProtectionFlags *) 
delete * = 0; 
execute * = 1 ; 
writeProt * = 2; 
read Prot * = 3; 
archive * = 4; 
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pure * = 5; 
script * = 6; 
hidden * = 7; 

TYPE 

FilelnfoBlockPtr * = POINTER TO FilelnfoBlock; 

FilelnfoBlock * = STRUCT 
diskKey *: LONGINT; 
dirEntryType * : LONGINT; 
fileName *: ARRAY 108 OF CHAR; 
protection *: LONGSET; {* ProtectionFlags *) 
entryType * : LONGINT; 
size * : LONGINT; 
numBlocks * : LONGINT; 
date *: Date; 

comment *: ARRAY 80 OF CHAR; 
reserved * : ARRAY 36 OF CHAR; 

END; 

InfoDataPtr * = POINTER TO InfoData; 

InfoData * = STRUCT 
numSoftErrors *: LONGINT; 
unitNumber* : LONGINT; 
diskState * : LONGINT; 
numBlocks * : LONGINT; 
numBlocksUsed *: LONGINT; 
bytesPerBlock * : LONGINT; 
diskType *: LONGINT; 
volumeNode *: DeviceListPtr; 
inUse *: LONGINT; 

END; 

CONST 

(* lnfoData.diskState *: *) 
writeProtect * = 80; 
validating * = 81; 
validated * = 82; 

(* InfoData.diskType *: *) 
noDiskPresent * = -1; 

unreadableDisk * = s. VAL(LONGINT,"BAD"); (* 42414400H *) 
dosDisk * = s.VAL(LONGINT,"DOS"); (* 444F5300H *) 
notReallyDos * « s.VAL(LONGINT,”NDOS H ); (* 4E444F53H *) 
kickstartDisk * = s.VAL(LONGINT, "KICK” ); (* 4B49434BH *) 

(* Ergebnisse von loErr() *: *) 
noFreeStore * = 103; 
taskTableFull * = 105; 
lineTooLong * = 120; 
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fileNotObject* = 121; 
invalidResidentLibrary * = 122; 
noDefaultDir * = 201; 
objectlnUse * = 202; 
objectExists * = 203; 
dirNotFound * = 204; 
objectNotFound * = 205; 
badStreamName * = 206; 
objectTooLarge * = 207; 
actionNotKnown * = 209; 
invalidComponentName * = 210; 
invalidLock* = 211; 
objectWrongType * = 212; 
diskNotValidated * = 213; 
diskWriteProtected * = 214; 
renameAcrossDevices * = 215; 
directoryNotEmpty * = 216; 
tooManyLevels * = 217; 
deviceNotMounted * = 218; 
seekError* = 219; 
commentTooBig * = 220; 
diskFull * - 221; 
deleteProtected * = 222; 
writeProtected * = 223; 
readProtected * = 224; 
notADosDisk * = 225; 
noDisk * = 226; 
noMoreEntries * = 232; 

(* ReturnCode für Exit() *: (in Oberon bitte stattdessen HALT() nehmen!) *) 
ok* = 0; 
warn * = 5; 
error* = 10; 
fail * = 20; 


(* break Signalbits *) 
ctrIC * = 12; 
ctrID * = 13; 
ctrIE * = 14; 
ctrIF * = 15; 

TYPE 

CommandLinelnterfaceRr * = BPOINTER TO CommandLinelnterface; 
Processld * = e.MsgPortPtr; 

ProcessRr * = POINTER TO Process; 

Process * = STRUCT 
task *: e.Task; 
msgPort *: e.MsgPort; 
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pad* : INTEGER; 
segList *: e.BPTR; 
stackSlze *; LONGINT; 
globVec *: e.ADDRESS; 
taskNum *: LONGINT; 
stackBase *: e.BPTR; 
result2 * ; LONGINT; 
currentDir *: FileLockPtr; 
cis *: FileHandlePtr; 
cos *: FileHandleRr; 
consoleTask *: Processld; 
fileSystemTask *: Processld; 
cli *: CommandLinelnterfacePtr; 
returnAddr *: e.ADDRESS; 
pktWait *: e.ADDRESS; 
windowPtr * ; e.ADDRESS; 

END; 

FileHandle * = STRUCT 
link *: e.MessagePtr; 
port *; e.MsgPortPtr; 
type *: Processld; 
buf * : LONGINT; 
pos * : LONGINT; 
end *: LONGINT; 
funcl * : LONGINT; 
func2 *: LONGINT; 
func3 *: LONGINT; 
argl *: LONGINT; 
arg2 *; LONGINT; 

END; 

DosPacket * = STRUCT 
link *: e.MessagePtr; 
port *: e.MsgPortPtr; 
type *: LONGINT; (* Action *) 
resl *: LONGINT; (* Status *) 
res2 * : LONGINT; (* Status2 *) 
argl * : LONGINT; (* BufAddr *) 
arg2 * : LONGINT; 
arg3 *: LONGINT; 
arg4 *: LONGINT; 
arg5 * : LONGINT; 
arg6 *: LONGINT; 
arg7 *: LONGINT; 

END; 

DosPacketRr * = POINTER TO DosPacket; 
StandardPacket * = STRUCT 
msg *: e.Message; 
pkt *: DosPacket; 
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END; 

StandardPacketPtr * = POINTER TO Standard Packet; 

) 

CONST 

(* DosPacket.type *) 
nil * = 0; 
getBlock * = 2; 
setMap * = 4; 
die * = 5; 
event * = 6; 
currentVolume * = 7; 
locateObject * = 8; 
renameDisk * = 9; 

\ write * = ORD(’W’); 

read * = ORD(’R’); 
freeLock* = 15; 
deleteObject * = 16; 
renameObject * = 17; 
moreCache * = 18; 
copyDir* = 19; 
waitChar * = 20; 
setProtect * = 21; 
createDir * = 22; 
examineObject * = 23; 
examineNext * = 24; 
disklnfo * = 25; 
info * = 26; 
flush * = 27; 
setComment * = 28; 
parent * = 29; 
timer* = 30; 
inhibit * = 31; 

) diskType * = 32; 

diskChange * = 33; 
setDate * = 34; 
screenMode * = 994; 
read Return * = 1001; 
writeReturn * = 1002; 
findUpdate * = 1004; 
findlnput* = 1005; 
findOutput* = 1006; 
actionEnd* = 1007; 
seek* = 1008; 
truncate* = 1022; 

I writeLock* = 1023; 

TYPE 
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RootNodePtr * = POINTER TO RootNode; 

DosLibrary * = STRUCT 
lib *: e.Library; 
root *: RootNodePtr; 
gv *: e.ADDRESS; 
a2 * : LONGINT; 
a5 *: LONGINT; 
a6 *: LONGINT; 

END; 

DosLibraryRr * = POINTER TO DosLibrary; 

TaskArray * = STRUCT 
maxCIi *: LONGINT; 
cli *: ARRAY 100 OF Processld; 

END; 

DosEnvecPtr * = BPOINTER TO DosEnvec; 

DoslnfoPtr * = BPOINTER TO Doslnfo; 

FileSysStartupMsgPtr * = BPOINTER TO FileSysStartupMsg; 
TaskArrayPtr * = BPOINTER TO TaskArray; 
ResidentSegmentPtr * = BPOINTER TO ResidentSegment; 
ResidentSegment * = STRUCT 
next * : ResidentSegmentPtr; 
usecount * : LONGINT; 
segment* : e.BPTR; 

(* name *: ARRAY OF CHAR; [0] = length, [1..] = string *) 
END; 

RootNode * = STRUCT 
taskArray * : TaskArrayPtr; 
consoleSegment *: e.BPTR; 
time * : Date; 
restartSeg * : e.BPTR; 
info * : DoslnfoPtr; 
fileHandlerSegment *: e.BPTR; 

END; 

Doslnfo * = STRUCT 
mcName *:BSTR; 
devlnfo *: DeviceListPtr; 
devices *: e.BPTR; 
handlers *: e.BPTR; 
netHand *: ResidentSegmentPtr; 

END; 

PathlnfoPtr * = BPOINTER TO Pathlnfo; 

Pathlnfo * = STRUCT 
nextPath *: PathlnfoPtr; 
lock * : FileLockPtr; 

END; 

CommandLinelnterface * = STRUCT 
result2 *: LONGINT; 
setName *: BSTR; 
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commandDir* : PathlnfoPtr; 

returnCode *: LONGINT; 

commandName *: BSTR; 

failLevel *: LONGINT; 

prompt * : BSTR; 

standardlnput *: FileHandlePtr; 

currentlnput *: FileHandlePtr; 

commandFile *: BSTR; 

interactive * : LONGINT; (* LONGBOOLEAN *) 

background *: LONGINT; (* LONGBOOLEAN *) 

currentOutput *: FileHandlePtr; 

defaultStack *: LONGINT; 

standardOutput * : FileHandlePtr; 

module *: e.BPTR; 

END; 

CONST 

(* DeviceListType *) 
de vice * = 0; 
directory * = 1; 
volume * = 2; 

TYPE 

DeviceList * = STRUCT 
next *: DeviceListPtr; 
type *: LONGINT; (* DeviceListType *) 
task *: Processld; 
lock *: FileLockPtr; 
handler *: BSTR; 
stackSize *: LONGINT; 
priority *: LONGINT; 
startup *: FileSysStartupMsgPtr; 
segList *: e.BPTR; 
globVec*: e.BPTR; 
name *:BSTR; 

END; 

DeviceListVol * = STRUCT (* für Volumes *) 
next *: DeviceListPtr; 
type *: LONGINT; (* DeviceListType *) 
task *: Processld; 
lock *: FileLockPtr; 
volumeDate *: Date; 
lockList *: FileLockPtr; 
diskType * : LONGINT; 
unused *: LONGINT; 
name *:BSTR; 

END; 
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DeviceNode * = DeviceList; 

DeviceNodePtr * = POINTER TO DeviceNode; 

DeviceNodeVol * = DeviceListVol; 

DeviceNodeVolPtr * = POINTER TO DeviceNodeVol; 

DosEnvec * = STRUCT 
tableSize *: LONGINT; 
sizeBlock * : LONGINT; 
secOrg *: LONGINT; 
surfaces *: LONGINT; 
sectorsPerBlock *: LONGINT; 
blocksPerTrack *: LONGINT; 
reserved * : LONGINT; 
preAlloc*: LONGINT; 
interleave *: LONGINT; 
lowCyl", highCyl: LONGINT; 
numBuffers *: LONGINT; 
bufMem Type *: LONGINT; 
maxTransfers *: LONGINT; 
mask *: LONGSET; 
bootPri *: LONGINT; 
dosType * : ARRAY 4 OF CH AR; 

END; 

FileLock* = STRUCT 
link * : FileLockPtr; 
key *: LONGINT; 
access *: LONGINT; 
task *: Processld; 
volume *: DeviceListPtr; 

END; 

FileSysStartupMsg * = STRUCT 
unit * : LONGINT; 
device *: BSTR; 
environ *: DosEnvecPtr; 
flags *: LONGSET; 

END; 

VAR dos *: DosLibraryPtr; 

PROCEDURE Close* {dos,- 36}(file{1}: FileHandlePtr); 

PROCEDURE CreateDir* {dos,-120}(name{1}: ARRAY OF CHAR): FileLockPtr; 
PROCEDURE CreateProc* {dos,-138}(name{1}: ARRAY OF CHAR; 

pri{2}: LONGINT; segment{3}: e.BPTR; 
stackSize{4}: LONGINT): Processld; 

PROCEDURE CurrentDir* {dos,-126}(lock{1}: FileLockPtr): FileLockPtr; 
PROCEDURE DateStamp* {dos,-192}(VAR v{1}: Date); 

PROCEDURE Delay* {dos198}(ticks{ 1}: LONGINT); 

PROCEDURE DeleteFile* {dos,- 72}(name{1}: ARRAY OF CHAR): BOOLEAN; 
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PROCEDURE DeviceProc* {dos,-174}(name{1}: ARRAY OF CHAR): Processld; 
PROCEDURE DupLock* {dos,- 96}(lock{1}: FileLockRr): FileLockPtr; 
PROCEDURE Examine* {dos,-102}(lock{1}: FileLockPtr; 

infoBlock{2}: FilelnfoBlockPtr): BOOLEAN; 

PROCEDURE Execute* {dos,-222}(commandString{1}: ARRAY OF CHAR; 
input{2}: FileHandleRr; 
output{3}: FileHandleRr): BOOLEAN; 

PROCEDURE Exit* {dos,-144}(retumCode{1}: LONGINT); 

PROCEDURE ExNext* {dos,-108}(lock{1}; FileLockRr; 

infoBlock{2}: FilelnfoBlockPtr): BOOLEAN; 

PROCEDURE GetPacket* {dos,-162}(wait{1}: LONGINT): DosPacketRr; 
PROCEDURE Info* {dos,-114}(lock{1}: FileLockPtr; 

parameterBlock{2): InfoDataRr): BOOLEAN; 

PROCEDURE Input* {dos,- 54}(): FileHandlePtr; 

PROCEDURE loErr* {dos,-132}(): LONGINT; 

PROCEDURE Islnteractive* {dos,-216}(file{1}: FileHandleRr); BOOLEAN; 
PROCEDURE LoadSeg* {dos,-150}(name{1}: ARRAY OF CHAR); e.BPTR; 
PROCEDURE Lock* {dos,- 84}(name{1}: ARRAY OF CHAR; 

accessMode{2}: LONGINT): FileLockRr; 

PROCEDURE Open* {dos,- 30}(name{1}: ARRAY OF CHAR; 

accessMode{2): LONGINT): FileHandlePtr; 

PROCEDURE Output* {dos,- 60}(): FileHandlePtr; 

PROCEDURE ParentDir* {dos,-210}(lock{1}: FileLockRr): FileLockRr; 
PROCEDURE QueuePacket* {dos,-168}(packet{1}: DosPacketRr): LONGINT; 
PROCEDURE Read* {dos,- 42}(file{1}: FileHandleRr; 
buffer{2): ARRAY OF BYTE; 
length{3}: LONGINT): LONGINT; 

PROCEDURE Rename* {dos,- 78}(oldName{1},newName{2}: ARRAY OF CHAR): 
BOOLEAN; 

PROCEDURE Seek* {dos,- 66}(file{1}: FileHandleRr; 
position{2): LONGINT; 
mode{3): LONGINT): LONGINT; 

PROCEDURE SetComment* {dos,-180}( 

name{1 },comment{2): ARRAY OF CHAR): BOOLEAN; 
PROCEDURE SetProtection* {dos,-186}(name{1}: ARRAY OF CHAR; 

mask{2}: LONGSET (* ProtectionFlags *) 

): BOOLEAN; 

PROCEDURE UnLoadSeg* {dos,-156}(segment{1}: e.BPTR); 

PROCEDURE UnLock* {dos,- 90}(lock{1}: FileLockRr); 

PROCEDURE WaitForChar* {dos,-204}(file{1}: FileHandleRr; 

timeout{2}: LONGINT): BOOLEAN; 

PROCEDURE Write* {dos,- 48}(file{1>: FileHandlePtr; 

buffer{2}: ARRAY OF BYTE; 
length{3}: LONGINT): LONGINT; 

(* $OvflChk- $RangeChk- $StackChk- $NilChk- $ReturnChk- $CaseChk- *) 
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BEGIN 

dos := s.VAL(DosLibraryPtr,e.OpenLibrary(dosName J 33)); 

IF dos = NILTHEN HALT(0) END; 

CLOSE 

IF dos#NILTHEN e.CloseLibrary(s.VAL(e.LibraryPtr,dos)) END; 
END Dos. 
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Exec: 


MODULE Exec; (* $lmplementation- *) 
TYPE 

ADDRESS * = LONGINT; 

BPTR * = BPOINTER TO LONGINT; 
PROC * = PROCEDURE; 


CONST 
(* IntFlags *) 


tbelnt 

*= 0; 

dskblk 

*= 1; 

ifSoftint 

*= 2; 

ports 

* = 3; 

coper 

*= 4; 

vertb 

*= 5; 

blit 

= 6; 

audOi 

*= 7; 

audli 

*= 8; 

aud2i 

*= 9; 

aud3i 

* = 10; 

rbflnt 

* = 11; 

disksync 

* = 12; 

exter 

*=13; 

inten 

* = 14; 

intSet 

* = 15; 

IntFlagsMax * = 16; 


(* NodeType *) 
unknown * = 0; 
task * = 1; 
interrupt * = 2; 
device * = 3; 
msgPort * = 4; 
message *= 5; 
freeMsg *= 6; 
replyMsg * = 7; 
resource * = 8; 
library * = 9; 
memory * = 10; 
softint * = 11; 
font * = 12; 
process * = 13; 
semaphore * = 14; 
signalSem * = 15; 
bootNode *=16; 


14/19 




14. Die Amiga-Interface-Module 


TYPE 

NodePtr * = POINTER TO Node; 

Node * = STRUCT 
succ *: NodePtr; 
pred *: NodePtr; 

type *: SHORTINT; (* NodeType *) 
pri * : SHORTINT; 
name *: LONGINT; 

END; 

MinNodePtr * = POINTER TO MinNode; 

MinNode * = STRUCT 
succ *: MinNodePtr; 
pred *: MinNodePtr; 

END; 

List * « STRUCT 
head *: NodePtr; 
tail *: NodePtr; 
tailPred * : NodePtr; 
type * : SHORTINT; (* NodeType *) 
pad * : BYTE; 

END; 

ListPtr * = POINTER TO List; 

MinList * = STRUCT 
head *: MinNodePtr; 
tail * : MinNodePtr; 
tailPred * : MinNodePtr; 

END; 

MinListPtr * = POINTER TO MinList; 

Interrupt * « STRUCT 
node *: Node; 
data *: LONGINT; 
code *: PROC; 

END; 

InterruptPtr * = POINTER TO Interrupt; 

lntVector* = STRUCT 
data *: LONGINT; 
code *: PROC; 
node *: NodePtr; 

END; 

Softlntüst * = STRUCT 
Hst *: List; 
pad*: INTEGER; 

END; 

CONST 
(* MemReqs *) 

public *= 0; 

Chip * = 1; 
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fast * = 2; 
memCIear * = 16; 
largest *=17; 

TYPE 

MemChunkPtr * = POINTER TO MemChunk; 

MemChunk * = STRUCT 
next *: MemChunkPtr; 
bytes * : LONGINT; 

END; 

MemHeader * = STRUCT 
node *: Node; 

attributes *: SET; (* MemReqs *) 
first *: MemChunkPtr; 
lower* : LONGINT; 
upper * : LONGINT; 
free *: LONGINT; 

END; 

MemHeaderPtr * = POINTER TO MemHeader; 

MemEntry * = STRUCT 

addr * : LONGINT; (* or * : reqs *: LONGSET; (* MemReqs *) *) 
length *: LONGINT; 

END; 

MemList * = STRUCT 
node *: Node; 
numEntries *: INTEGER; 

(*me * : ARRAY munEntries OF MemEntry;*) 

END; 

MemListPtr * = POINTER TO MemList; 

CONST 

(* MsgPortAction *) 

Signal * = 0; 
softint * = 1; 
ignore * = 2; 

TYPE 

TaskPtr * = POINTER TO Task; 

MsgPort * = STRUCT 
node *: Node; 

flags *: SHORTINT; (* MsgPortAction *) 
sigBit *: SHORTINT; 
sigTask *: TaskPtr; 
msgList *: List; 

END; 

MsgPortSoftInt * = STRUCT (* use when MsgPort.flags * = softint *) 
node *: Node; 

flags * : SHORTINT; (* MsgPortAction *) 
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padO *: BYTE; 
softint *: InterruptPtr; 
msgList *: List; 

END; 

MsgPortPtr * = POINTER TO MsgPort; 
Message * = STRUCT 
node *: Node; 
replyPort *: MsgPortPtr; 
length *: INTEGER; 

END; 

MessagePtr * = POINTER TO Message; 

CONST 

(* TaskFlags *) 
procTime * = 0; 
stackChk * = 4; 
exception * = 5; 
switch * = 6; 
launch * = 7; 

(* TaskState *) 
inval * = 0; 
added * =1; 
run * = 2; 
ready * = 3; 
wait * = 4; 
except * = 5; 
removed * = 6; 

TYPE 

Task * = STRUCT 
node *: Node; 

flags *: SHORTSET; (* TaskFlags *) 
state *: SHORTSET; (* TaskState *) 
idNestCnt * : SHORTINT; 
tdNestCnt *: SHORTINT; 
sigAlloc *: LONGSET; 
sigWait *: LONGSET; 
sigRecvd *: LONGSET; 
sigExcept *: LONGSET; 
trapAlloc *: SET; 
trapAble *: SET; 
exceptData *: LONGINT; 
exceptCode *: PROC; 
trapData *: LONGINT; 
trapCode *: PROC; 
spReg *: LONGINT; 
spLower * : LONGINT; 
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spUpper *: LONGINT; 
switch *: PROC; 

) launch *: PROC; 

memEntry *: List; 
userData *: LONGINT; 

END; 

CONST 

(* Vordefinierte Signalnummern *) 
sigAbort * = 0; 
sigChild * = 1; 
sigBlit * = 4; 
sigSingle * = 4; 
sigDos * = 8; 

j vectSize * = 6; 

reserved * = 4; 
base * = -vectSize; 
userDef * = base-reserved*vectSize; 
nonStd * = userDef; 
extFunc * = -24; 
expunge* = -18; 
close* = -12; 
open * = -6; 

(* LibFlags *) 
summing * = 0; 
changed * = 1; 
sumUsed * = 2; 
delExp * = 3; 

TYPE 

Library * = STRUCT 
) node *: Node; 

flags *: SHORTSET; (* LibFlags *); 
pad * : BYTE; 
negSize *: INTEGER; 
posSize *: INTEGER; 

Version *: INTEGER; 
revision *: INTEGER; 
idString *: LONGINT; 
sum * : LONGINT; 
openCnt *: INTEGER; 

END; 

LibraryPtr * = POINTER TO Library; 
Device * = STRUCT 
' library *: Library; 

END; 
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DevicePtr * = POINTER TO Device; 

CONST 
(* UnitFlags *) 
active * = 0; 
inTask * = 1;. 

TYPE 

UnitRr * = POINTER TO Unit; 

Unit * = STRUCT 
msgPort *: MsgPort; 
flags *: SHORTSET; (* UnitFlags *) 
pad * : BYTE; 
openCnt *: INTEGER; 

END; 

CONST 

(* Standardbefehle für lORequest.command *) 
invalid * = 0; 
reset * = 1; 
read * = 2; 
write * = 3; 
update * = 4; 
clear * = 5; 
stop * = 6; 

Start * = 7; 
flush * = 8; 
nonstd * = 9; 

(* Standard Fehlerwerte fuer lORequest.error *) 
openFail * = -1; 
aborted * = -2; 
noCmd * = -3; 
badLength * = -4; 

(* Offstes der Devicespezifischen Funktionen *) 
abortIO* = -36; 
beginlO* = -30; 

quick * = 0; 

TYPE 

lORequest * = STRUCT 
message *: Message; 
device *: DevicePtr; 
unit *: UnitPtr; 
command *: INTEGER; 
flags *: SHORTSET; 
error *: SHORTINT; 
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END; 

lORequestPtr * = POINTER TO lORequest; 

lOStdReq * = STRUCT 
message *: Message; 
device *: DevicePtr; 
unit *: UnitPtr; 
command *: INTEGER; 
flags * : SHORTSET; 
error * : SHORTINT; 
actual * : LONGINT; 
length *: LONGINT; 
data *: LONGINT; 

Offset * : LONGINT; 

END; 

lOStdReqPtr * = POINTER TO lOStdReq; 

Semaphore * = STRUCT 
msgPort *: MsgPort; 
bids *: INTEGER; 

END; 

SemaphorePtr * = POINTER TO Semaphore; 

SemaphoreRequest * = STRUCT 
link*: MinNode; 
waiter *: TaskPtr; 

END; 

SignalSemaphore * = STRUCT 
link*: Node; 
nestCount *: INTEGER; 
waitQueue *: MinList; 
multipleLink *: SemaphoreRequest; 
owner *: TaskPtr; 
queueCount * : INTEGER; 

END; 

SignalSemaphorePtr * = POINTER TO SignalSemaphore; 

CONST 

(* ResidentFlags *) 

coldstart * = 0; 

autoinit * = 7; 

TYPE 

ResidentPtr * = POINTER TO Resident; 

Resident * = STRUCT 
matchWord *: INTEGER; 
matchTag *: ResidentPtr; 
endSkip *: LONGINT; 
flags *: SHORTSET; (* ResidentFlags *) 

Version *: BYTE; 

type * : SHORTINT; (* NodeType *) 
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pri *: SHORTINT; 
name *: LONGINT; 
idString *: LONGINT; 
init * : LONGINT; 

END; 

CONST 

(* add to Alertnumber for Deadend-Alerts: *) 

deadEnd * = MIN(LONGINT); 

CONST 

matchword * = 04AFCH; 

(* AttnFlags *) 
m68010 * = 0; 
m68020 * = 1; 
m68881 * = 4; 

TYPE 

ExecBase * = STRUCT 
libNode *: Library; 
softVer* : INTEGER; 
lowMemChkSum * : INTEGER; 
chkBase * : LONGINT; 
coldCapture *; LONGINT; 
coolCapture *: LONGINT; 
warmCapture *: LONGINT; 
sysStkUpper *; LONGINT; 
sysStkLower *: LONGINT; 
maxLocMem *: LONGINT; 
debugEntry *: LONGINT; 
debugData *: LONGINT; 
alertData * : LONGINT; 
maxExtMem *: LONGINT; 
chkSum *: INTEGER; 

intVects *: ARRAY IntFlagsMax OF IntVector; 

thisTask *: TaskPtr; 

idleCount *: LONGINT; 

dispCount *: LONGINT; 

quantum *: INTEGER; 

elapsed *: INTEGER; 

sysFlags *: INTEGER; 

idNestCnt *: SHORTINT; 

tdNestCnt *: SHORTINT; 

attnFlags *: SET; (* AttnFlags *); 

attnResched *: INTEGER; 

resModules *: LONGINT; 

taskTrapCode *; PROC; 
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taskExceptCode *: PROC; 
taskExitCode *: PROC; 
taskSigAlloc *: LONGSET; 
taskTrapAlloc *: SET; 
memList *: List; 
resourceList *: List; 
deviceList *: List; 
intrList *: List; 
libList *: List; 
portList *: List; 
taskReady *: List; 
taskWait *: List; 

softlnts *: ARRAY 5 OF SoftlntList; 
lastAlert *: ARRAY 4 OF LONGINT; 
vBlankFrequency *: BYTE; 
powerSupplyFrequency *: BYTE; 
semaphoreList *: List; 
kickMemPtr*: LONGINT; 
kickTagPtr*: LONGINT; 
kickCheckSum *: LONGINT; 
execBaseReserved *: ARRAY 10 OF BYTE; 
execBaseNewReserved *: ARRAY 20 OF BYTE; 

END; 

ExecBasePtr * = POINTER TO ExecBase; 

VAR 

exec* [4]: ExecBasePtr; 

PROCEDURE AbortIO* {exec,-480}(iORequest{9}: ADDRESS); 

PROCEDURE AddDevice* {exec,-432}(device{9}: DevicePtr); 

PROCEDURE AddHead* {exec,-240}(list{8}: ListPtr; 

node{9}: ADDRESS); 

PROCEDURE AddlntServer* {exec,-168}(intNum{0}: LONGINT; 

interrupt{9}: InterruptPtr); 

PROCEDURE AddLibrary* {exec,-396}(library{9}: LibraryPtr); 

PROCEDURE AddMemList* {exec,-618}(size{0}: LONGINT; 

attributes{1}: LONGSET; (* MemReqs *) 
pri{2}: LONGINT; 
exec{8}: LONGINT; 

name{9}: ARRAY OF CHAR): LONGINT; 

PROCEDURE AddPort* {exec,-354}(port{9}: MsgPortPtr); 

PROCEDURE AddResource* {exec,-486}(resource{9}: ADDRESS); 

PROCEDURE AddSemaphore* {exec,-600}( 

signalSemaphore{9}: SignalSemaphorePtr); 

PROCEDURE AddTail* {exec,-246}(list{8}: ListPtr; 

node{9}: ADDRESS); 

PROCEDURE AddTask* {exec,-282}(task{9}: TaskPtr; 

initialPC{10}: PROC; 
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finalPC{11}: ADDRESS); 

PROCEDURE Alert* {exec,-108}(alertNum{7}: LONGINT; 

parameters{13}: LONGINT); 

PROCEDURE AllocAbs* {exec,-204}(byteSize{0}: LONGINT; 

!ocation{9}: LONGINT): ADDRESS; 

PROCEDURE Allocate* {exec,-186}(freeList{8}: MemHeaderRr; 

byteSize{0}: LONGINT): ADDRESS; 

PROCEDURE AllocEntry* {exec,-222}( 

memüst1{8}: MemListPtr): ADDRESS; 

PROCEDURE AllocMem* {exec,-198}(byteSize{0}: LONGINT; 

requirements{1}: LONGSET (* MemReqs *)): ADDRESS; 
PROCEDURE AllocSignal* {exec,-330}( 

signa!Num1{0}: LONGINT): SHORTINT; 

PROCEDURE AllocTrap* {exec,-342}(trapNum1{0}: LONGINT): SHORTINT; 
PROCEDURE AttemptSemaphore* {exec,-576}( 

signalSemaphore{8}: SignalSemaphorePtr): BOOLEAN; 
PROCEDURE AvailMem* {exec,-216}( 

requirements{1}: LONGSET (* MemReqs *)): LONGINT; 
PROCEDURE Cause* {exec,-180}(interrupt{9}: InterruptPtr); 

PROCEDURE ChecklO* {exec,-468}(ioRequest{9}: ADDRESS): BOOLEAN; 
PROCEDURE CloseDevice* {exec,-450}(ioRequest{9}: ADDRESS); 

PROCEDURE CloseLibrary* {exec,-414}(library{9}: LibraryRr); 

PROCEDURE CopyMem* {exec,-624}(source{8}: ARRAY OF BYTE; 
dest{9}: ARRAY OF BYTE; 
size{0}: LONGINT); 

PROCEDURE CopyMemQuick* {exec,-630}(source{8}: ARRAY OF BYTE; 

dest{9}: ARRAY OF BYTE; 
size{0}: LONGINT); 

PROCEDURE Deallocate* {exec,-192}(freeList{8}: MemHeaderRr; 

memoryBlock{9}: ADDRESS; 
byteSize{0}: LONGINT); 

PROCEDURE Debug* {exec,-114}(); 

PROCEDURE Disable* {exec,-120}(); 

PROCEDURE Dispatch* {exec,- 60}(); 

PROCEDURE DolO* {exec,-456}(ioRequest{9}: ADDRESS); 

PROCEDURE Enable* {exec,-126}(); 

PROCEDURE Enqueue* {exec,-270}(list{8}: ListRr; 

node{9}: ADDRESS); 

PROCEDURE Exception* {exec,- 66}(); 

PROCEDURE Exitlntr* {exec,- 36}(); 

PROCEDURE FindName* {exec,-276} (start{8}: ADDRESS; 

name{9}: ARRAY OF CHAR): LONGINT; 

PROCEDURE FindPort* {exec,-390}(name{9}: ARRAY OF CHAR): MsgPortPtr; 
PROCEDURE FindResident* {exec,- 96}(name{9}: ARRAY OF CHAR): ResidentPtr; 
PROCEDURE FindSemaphore* {exec,-594}( 

name{9}: ARRAY OF CHAR): SignalSemaphorePtr; 

PROCEDURE FindTask* {exec,-294}(name{9}: ARRAY OF CHAR): TaskPtr; 
PROCEDURE Forbid* {exec,-132}(); 
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PROCEDURE FreeEntry* {exec f -228}(memList{8}: MemListRr); 

PROCEDURE FreeMem* {exec,-210}(memoryBlock{9}: ADDRESS; 
byteSize{0}: LONGINT); 

PROCEDURE FreeSignal* {exec,-336}(signalNum{0}: LONGINT); 

PROCEDURE FreeTrap* {exec,-348}(trapNum{0}: LONGINT); 

PROCEDURE GetCC* {exec,-528}(): SET; 

PROCEDURE GetMsg* {exec,-372}(port{8}: MsgPortRr): LONGINT; 

PROCEDURE InitCode* {exec,- 72}(startClass{0}: SHORTSET; (* ResidentFlags *) 
version{1}: LONGINT); 

PROCEDURE InltResident* {exec,-102}(resident{9}: ResidentRr; 

segLlst{1}: BPTR); 

PROCEDURE InitSemaphore* {exec,-558}( 

signalSemaphore{8}: SignalSemaphoreRr); 

PROCEDURE InitStruct* {exec,- 78}(initTable{9}: ADDRESS; 

memory{10}: ADDRESS; 
size{0}: LONGINT); 

PROCEDURE Insert* {exec,-234}(list{8}: ListRr; 

node{9}: ADDRESS; 
listNode{10}: ADDRESS); 

PROCEDURE MakeFunctions* {exec,- 90}(target{8}: ADDRESS; 

functArray{9}: ADDRESS; 
functDispBase{10}: ADDRESS); 

PROCEDURE MakeLibrary* {exec,- 84}(vectors{8}: ADDRESS; 

structure{9}: ADDRESS; 
init{10}: ADDRESS; 
dataSize{0}: LONGINT; 
segList{1}: BPTR): LibraryPtr; 

PROCEDURE ObtalnSemaphore* {exec,-564}( 

signalSemaphore{8}: SignalSemaphoreRr); 

PROCEDURE ObtainSemaphoreList* {exec,-582}(list{8}: ListRr); 

PROCEDURE OldOpenLibrary* {exec,-408}( 

libName{9}: ARRAY OF CHAR): LibraryRr; 

PROCEDURE OpenDevice* {exec,-444}(devName{8}: ARRAY OF CHAR; 
unitNumber{0}: LONGINT; 
ioRequest{9}: ADDRESS; 
flags{1}: LONGSET): LONGINT; 

PROCEDURE OpenLibrary* {exec,-552}(libName{9}: ARRAY OF CHAR; 

version{0}: LONGINT): LibraryRr; 

PROCEDURE OpenResource* {exec,-498}( 

resName{9}: ARRAY OF CHAR): LONGINT; 

PROCEDURE Permit* {exec,-138}(); 

PROCEDURE Procure* {exec,-540}(semaphore{8}: SemaphoreRr; 

bidMessage{9}: MessagePtr): LONGINT; 

PROCEDURE PutMsg* {exec,-366}(port{8}: MsgPortPtr; 

message{9}: ADDRESS); 

PROCEDURE RawDoFmt* {exec,-522}(formatString{8}: ARRAY OF CHAR; 
dataStream{9}: ADDRESS; 
putChProc{10}: PROC; 
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putCh Data{ 11}: ADDRESS); 

PROCEDURE RawlOlnit* {exec,-504}(); 

PROCEDURE RawMayGetChar* {exec,-510}(): CHAR; 

PROCEDURE RawPutChar* {exec,-516}(ch{0}: CHAR); 

PROCEDURE ReleaseSemaphore* {exec,-570}( 

signalSemaphore{8}: SignalSemaphorePtr); 
PROCEDURE ReleaseSemaphoreList* {exec,-588}(list{8}: ListRr); 
PROCEDURE RemDevice* {exec,-438}(device{9}: DevicePtr); 
PROCEDURE RemHead* {exec,-258}(list{8}: ListPtr): ADDRESS; 
PROCEDURE RemlntServer* {exec,-174}(intNum{0}: LONGINT; 

interrupt{9}: InterruptRr); 

PROCEDURE RemLibrary* {exec,-402}(library{9}: LibraryRr); 
PROCEDURE Remove* {exec,-252}(node{9}: ADDRESS); 
PROCEDURE RemPort* {exec,-360}(port{9}: MsgPortRr); 
PROCEDURE RemResource* {exec,-492}(resource{9}: ADDRESS); 
PROCEDURE RemSemaphore* {exec,-606}( 

signalSemaphore{9}: SignalSemaphorePtr); 
PROCEDURE RemTail* {exec,-264}(list{8}: ListPtr): ADDRESS; 
PROCEDURE RemTask* {exec,-288}(task{9}: TaskRr); 

PROCEDURE ReplyMsg* {execr378}(message{9}: ADDRESS); 
PROCEDURE Reschedule* {exec,- 48}(); 

PROCEDURE Schedule* {exec,- 42}(); 

PROCEDURE SendIO* {exec,-462}(ioRequest{9}: ADDRESS); 
PROCEDURE SetExcept* {exec,-312}(newSignals{0}: LONGSET; 

signalMask{1}: LONGSET): LONGSET; 
PROCEDURE SetFunction* {exec,-420}(library{9}: LibraryRr; 

funcOffset{8}: INTEGER; 
funcEntry{0}: ADDRESS): ADDRESS; 
PROCEDURE SetlntVector* {exec,-162}( 
intNumber{0): LONGINT; 
interrupt{9}: InterruptPtr): InterruptPtr; 

PROCEDURE SetSignal* {exec,-306}(newSignals{0}: LONGSET; 

signalMask{1}: LONGSET): LONGSET; 
PROCEDURE SetSR* {exec,-144}(newSR{0}: SET; 

mask{1}: SET): SET; 

PROCEDURE SetTaskPri* {exec,-300}(task{9}: TaskPtr; 

priority{0}: SHORTINT): SHORTINT; 
PROCEDURE Signal* {exec,-324}(task{9}: TaskPtr; 

signals{0}: LONGSET); 

PROCEDURE SumKickData* {exec,-612}(); 

PROCEDURE SumLibrary* {exec,-426}(library{9): LibraryPtr); 
PROCEDURE SuperState* {exec,-150}(): LONGINT; 

PROCEDURE Supervisor* {exec,- 30}(); 

PROCEDURE Switch* {exec,- 54}(); 

PROCEDURE TypeOfMem* {exec,-534}( 

address{9}: ADDRESS): LONGSET (* MemReqs *); 
PROCEDURE UserState* {exec,-156}(sysStack{0}: LONGINT); 
PROCEDURE Vacate* {exec,-546}(semaphore{8}: SemaphorePtr); 
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PROCEDURE Wait* {exec,-318}(signalSet{0}: LONGSET): LONGSET; 
PROCEDURE WaitIO* {exec,-474}(ioRequest{9}: ADDRESS); 
PROCEDURE WaitPort* {exec,-384}(port{8}: MsgPortPtr); 

END Exec. 
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ExecSupport: 


DEFINITION ExecSupport; 

TYPE 

PROC = PROCEDUREO; 

PROCEDURE NewList(VAR list: e.List); 

PROCEDURE ListEmpty(VAR list: e.List): BOOLEAN; 

PROCEDURE BeginlO(ioRequest: e.lORequestRr); 

PROCEDURE AbortlO(ioRequest: e.lORequestPtr); 

PROCEDURE CreatePort(portName: LONGINT; priority: SHORTINT): e.MsgPortRr; 
PROCEDURE DeletePort(port: e.MsgPortPtr); 

PROCEDURE CreateExtlO(ioReplyPort: e.MsgPortPtr; size: INTEGER): LONGINT; 
PROCEDURE DeieteExtlO(extlOReq: LONGINT); 

PROCEDURE CreateStdlO(ioReplyPort: e.MsgPortPtr): e.lOStdReqPtr; 
PROCEDURE DeleteStdlO(ioStdReq: e.lOStdReqPtr); 

PROCEDURE CreateTask(taskName: LONGINT; 

priority: SHORTINT; 
initPC: PROC; 

stackSize: LONGINT): e.TaskPtr; 

PROCEDURE DeleteTask(t: e.TaskRr); 

END ExecSupport. 
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Expansion: 

MODULE Expansion; 

IMPORT e: Exec, 
s: SYSTEM; 


TYPE 

Expansion Rom * = STRUCT 
type * : BYTE; 
product *; BYTE; 
flags *: BYTE; 
reserved03 *: BYTE; 
manufacturer *: INTEGER; 
serialNumber *: LONGINT; 
initDiagVec * : INTEGER; 
reservedOc *: BYTE; 
reservedOd *: BYTE; 
reservedOe *: BYTE; 
reservedOf *: BYTE 

END; 

ExpansionControl * = STRUCT 
interrupt *: BYTE; 
reservedll * : BYTE; 
baseAddress *; BYTE; 
shutup * : BYTE; 
reserved14 *: BYTE; 
reservedlö *: BYTE; 
reserved16 *; BYTE; 
reserved17 *: BYTE; 
reserved18 *; BYTE; 
reserved19 *: BYTE; 
reservedla *: BYTE; 
reservedlb *: BYTE; 
reservedlc *: BYTE; 
reservedld *: BYTE; 
reservedle *: BYTE; 
reservedlf *; BYTE; 

END; 

CONST 

slotSize * = 10000H; 

slotMask * = OFFFFH; 
slotShift * = 16; 

expansionBase * = 0E80000H; 

expansionSize * = 080000H; 

expansionSlots * = 8; 
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memoryBase * = 200000H; 
memorySize * = 800000H; 
memorySIots *«128; 
typrMask * = OCOH; 
typeBit * = 6; 
typeSize * = 2; 
newBoard * = OCOH; 
memMask * = 07H; 
memBit * = 0; 
memSize * =* 3; 
chainedConfig * = 3; 
diagValid * = 4; 
memList * = 5; 
memSpace *« 7; 
noShutup * « 6; 

intena * = 1; 
reset * = 3; 
int2pend * = 4; 
intöpend * = 5; 
int7pend * = 6; 
interrupting * = 7; 

TYPE 

DiagArea *. STRUCT 
config *: BYTE; 
flags *: BYTE; 
size * : INTEGER; 
diagPoint * : INTEGER; 
bootPoint * : INTEGER; 
name *: INTEGER; 
reservedOl *: INTEGER; 
reserved02 *: INTEGER 
END; 

CONST 

busWidth * = OCOH; 
nibbleWide * = 0; 
byteWide * = 040H; 
wordWide * = 080H; 
bootTime * = 030H; 
never * = 0; 
configTime * = 01 OH; 
bindTime * = 020H; 

TYPE 

ConfigDevPtr * = POINTER TO ConfigDev; 
ConfigDev * = STRUCT 
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node *: e.Node; 

flags *: BYTE; 

pad *: BYTE; 

rom *: ExpansionRom; 

boardAddr *: e.ADDRESS; 

boardSize *: e.ADDRESS; 

slotAddr*: INTEGER; 

slotSize *: INTEGER; 

driver * : e.ADDRESS; 

nextCD *: ConfigDevPtr; 

unused *: ARRAY 4 OF LONGINT; 

END; 

CONST 

shutup * = 0; 

configMe * = 1; 

TYPE 

CurrentBinding * = STRUCT 
configDev *: ConfigDevPtr; 
fileName *: e.ADDRESS; 
productString *: e.ADDRESS; 
toolTypes *: e.ADDRESS; 

END; 

CurrentBindingPtr * = POINTER TO CurrentBinding; 

VAR 

base *: e.LibraryPtr; 

PROCEDURE AddConfigDev * {base, -30}(configDev{8}:ConfigDevRr); 

PROCEDURE AddDosNode * {base, -150}(bootPri{0}:LONGINT; 

flags{1 }:LONGSET; 

deviceNode{8} :e. ADDRESS) :LONG INT; 

PROCEDURE AllocBoardMem * {base, -42}(slotSpec{0}:LONGINT):LONGINT; 

PROCEDURE AllocConfigDev * {base, -48}():ConfigDevPtr; 

PROCEDURE AllocExpansionMem * {base, -54}(numSlots{0}:LONGINT; 

slotAlign{1}:LONGINT; 

slotOffset{2}:LONGINT):LONGINT; 

PROCEDURE ConfigBoard * {base, -60}(board{8}:e.ADDRESS; 

configDev{9} :ConfigDevPtr) :LONGINT; 

PROCEDURE ConfigChain * {base, -66}(baseAddr{8}.e.ADDRESS); 

PROCEDURE expansionUnused * {base, -36}(); 

PROCEDURE FindConfigDev * {base, -72}(oldConfigDev{8}:ConfigDevRr; 

manufacturer{0}:LONGINT; 

product{1}:LONGINT); 

PROCEDURE FreeBoardMem * {base, -78}(startSlot{0}:LONGINT; 

slotSpec{1}:LONGINT); 

PROCEDURE FreeConfigDev * {base, -84}(configDev{8}:ConfigDevPtr); 
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PROCEDURE FreeExpansionMem * {base, -90}(StartSlot{0}:LONGINT; 

numSlots{1}:LONGINT); 

PROCEDURE GetCurrentBinding * {base, -138}( 

currentBinding{8}:CurrentBindingRr; 
size{0} :LONG INT) :LONG INT; 

PROCEDURE MakeDosNode * {base,-144}( 

parameterPkt{0} :e. ADDRESS) :e. ADDRESS; 

PROCEDURE ObtainConfigBinding * {base, -120}(); 

PROCEDURE ReadExpansionByte * {base, -96}(board{8}:e.ADDRESS; 

offset{0}:LONG INT): BYTE; 

PROCEDURE ReadExpansionRom * {base, -102}( 
board{8}:e. ADDRESS; 
configDev{9}:ConfigDevPtr):LONGINT; 

PROCEDURE ReleaseConfigBinding * {base, -126}(); 

PROCEDURE RemConfigDev * {base, -108}(configDev{8}:ConfigDevRr); 

PROCEDURE SetCurrentBinding * {base, -132}( 

currentBinding{8}:CurrentBindingRr; 

size{0}:LONGINT); 

PROCEDURE WriteExpansionByte * {base, -114}(board{8}:e.ADDRESS; 

offset{0}:LONGINT; 

byte{1}:BYTE); 

(* $OvflChk- $RangeChk- $StackChk- $NilChk- $ReturnChk- $CaseChk- *) 

BEGIN 


base := e.OpenLibrary(s.ADR("expansion.library"),33); 
IF base = NIL THENHALT(O) END; 

CLOSE 

IF base#NILTHEN e.CloseLibrary(base) END; 

END Expansion. 
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GamePort: 


MODULE GamePort; (* $lmplementation- *) 
IMPORT e:Exec; 

CONST 

gamePortName * = "gameport.device"; 
readEvent * = e.nonstd+0; 
askCType * = e.nonstd+1; 
setCType * = e.nonstd+2; 
askTrigger * = e.nonstd+3; 
setTrigger * = e.nonstd+4; 
allocated * = -1; 
errSetCType * = 1; 

(* Keys *) 
down Keys * = 0; 
upKeys * = 1; 

(* Controller *) 
noController * = 0; 
mouse * = 1; 
reS Joystick * = 2 ; 
absJoystick * = 3; 

TYPE 

GamePortTrigger * = STRUCT 
keys *: SET; (* Keys *) 
timeout *: INTEGER; 
xDelta * : INTEGER; 
yDelta*: INTEGER; 

END; 

END GamePort. 
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Graphics: 


MODULE Graphics; 

IMPORT e: Exec, 
h: Hardware, 
s: SYSTEM; 


TYPE 

AnimCompPtr * = POINTER TO AnimComp; 

AnimObPtr * = POINTER TO AnimOb; 

ArealnfoPtr * = POINTER TO Areainfo; 

BitMapPtr * = POINTER TO BitMap; 

BobRr * = POINTER TO Bob; 

ClipRectRr * = POINTER TO ClipRect; 

CollTableRr * = POINTER TO CollTable; 

ColorMapRr * = POINTER TO ColorMap; 

CopinitRr * = POINTER TO Copinit; 

CoplnsPtr * = POINTER TO Coplns; 

CopListRr * = POINTER TO CopList; 

CprlistRr* = POINTER TO Cprlist; 

DBufPacketRr * = POINTER TO DBufPacket; 
GelslnfoPtr * = POINTER TO Gelslnfo; 

IsrvstrRr * = POINTER TO Isrvstr; 

LayerRr * - POINTER TO Layer; 

Layerl nfoPtr * = POINTER TO Layerlnfo; 

RasInfoPtr * = POINTER TO Raslnfo; 

RastPortPtr * = POINTER TO RastPort; 

RectangleRr * = POINTER TO Rectangle; 

RegionPtr * = POINTER TO Region; 

RegionRectangleRr * = POINTER TO RegionRectangle; 
SimpleSpritePtr * = POINTER TO SimpleSprite; 
TextAttrRr * = POINTER TO TextAttr; 

TextFontPtr * = POINTER TO TextFont; 

TmpRasRr * = POINTER TO TmpRas; 

UCopListRr * = POINTER TO UCopList; 

ViewRr * = POINTER TO View; 

ViewPortPtr * = POINTER TO ViewPort; 

VSpriteRr * = POINTER TO VSprite; 

Rectangle * = STRUCT 
minX *: INTEGER; 
minY*: INTEGER; 
maxX *: INTEGER; 
maxY * : INTEGER; 

END; 

Layer * = STRUCT 
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front *: LayerPtr; 

back *: LayerPtr; 

clipRect *: ClipRectPtr; 

rp *: RastPortPtr; 

bounds *: Rectangle; 

reserved * : ARRAY 4 OF BYTE; 

priority *: INTEGER; 

flags *: INTEGER; 

superBitMap *: BitMapPtr; 

superClipRect *: ClipRectPtr; 

window * : e.ADDRESS; 

scrollX *: INTEGER; 

scrollY *: INTEGER; 

er *: ClipRectPtr; 

cr2 *: ClipRectPtr; 

ernew *: ClipRectPtr; 

superSaveClipRects *: ClipRectPtr; 

cliprects *: ClipRectPtr; 

layerlnfo *: LayerlnfoPtr; 

lock *: e.SignalSemaphore; 

reserved3 *: ARRAY 8 OF BYTE; 

clipRegion *: RegionPtr; 

saveClipRects *: RegionPtr; 

reserved2 * : ARRAY 22 OF BYTE; 

damageList *: RegionPtr; 

END; 

ClipRect * = STRUCT 
next *: ClipRectPtr; 
prev *: ClipRectPtr; 
lobs *: LayerPtr; 
bitMap *: BitMapPtr; 
bounds *: Rectangle; 
pl *: ClipRectPtr; 
p2 *: ClipRectPtr; 
reserved *: LONGINT; 
flags * : LONGINT; 

END; 

CONST 

needsNoConcealedRasters * = 01H; 

isLessX * = 1; 

isLessY * = 2; 

isGrtrX * = 4; 

isGrtrY * = 8; 

borderHit * = 0; 

topHit * = 1; 

bottomHit * = 2; 

leftHit * = 4; 
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rightHit * = 8; 

CONST 
move * = 0; 
wait * = 1; 
next * = 2; 
sht * = 14; 
lof *= 15; 

TYPE 

Coplns * = STRUCT 
opCode *: INTEGER; 
destAddr*: INTEGER; (* vWaitPos *) 
destData *: INTEGER; (* hWaitPos *) 

END; 

CoplnsCLPtr * = STRUCT (* für opCode * = next *) 
opCode * : INTEGER; 
nxtiist *: CopListPtr; 

END; 

Cprlist * = STRUCT 
next * : CprlistPtr; 

Start * : e.ADDRESS; 
maxCount * : INTEGER; 

END; 

CopList * = STRUCT 
next * : CopListPtr; 
copList *: CopListPtr; 
viewPort * : ViewPortPtr; 
coplns *: CoplnsPtr; 
copPtr *: CoplnsPtr; 
copLStart * : e.ADDRESS; 
copSStart * : e.ADDRESS; 
count * : INTEGER; 
maxCount *: INTEGER; 
dyOffset*: INTEGER; 

END; 

UCopList * = STRUCT 
next * : UCopListPtr; 
firstCopList *: CopListPtr; 
copList *: CopListPtr; 

END; 

Copinit * = STRUCT 
diagstrt *: ARRAY 4 OF INTEGER; 
sprstrtup * : ARRAY (2*8*2)+2+(2*2)+2 OF INTEGER; 
sprstop *: ARRAY 2 OF INTEGER; 

END; 

CONST 
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interlace * = 04H; 
pf2pri * = 40H; 
colorOn * = 200H; 
dblpf * = 400H; 
holdnmodify * = 800H; 
m640 * = 08000H; 
plnCntMsk * = 07H; 
plnCntShft * = 12; 

fineScroll * = OFH; 
fineScrollShift * = 04H; 
fineScrollMask * = OFH; 
vrtclPos* = 01FFH; 
vrtclPosShift * = 07H; 
horizPos * = 07FH; 
dftchMask * = OFFH; 
vposrlof * = 08000H; 

ringtrigger * = 01H; 
anfracsize * = 06H; 
animhalf * = 020H; 

b2Norm * = 0; 
b2Swap * = 1; 
b2Bobber * = 2; 

CONST 

(* VSpriteFlags *) 
vsprite * = 0; 
saveBack *= 1; 
overlay * = 2; 
mustDraw *= 3; 
backSaved * = 8; 
bobUpdate *= 9; 
gelGone * = 10; 
vsOverflow* = 11; 

TYPE 

VSprite * = STRUCT 
nextVSprite *: VSpritePtr; 
prevVSprite *: VSpritePtr; 
drawPath * : VSpritePtr; 
clearPath *: VSpritePtr; 
oldY * : INTEGER; 
oldX * : INTEGER; 
flags *: SET; (* VSpriteFlags *) 
y *: INTEGER; 
x * : INTEGER; 
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height * : INTEGER; 
width *: INTEGER; 
depth *; INTEGER; 
meMask *: SET; 
hitMask *: SET; 
imageData *: e.ADDRESS; 
borderLine *: e.ADDRESS; 
collMask *: e.ADDRESS; 
sprColors *: e.ADDRESS; 
vsBob *: BobPtr; 
planePick *: SHORTSET; 
planeOnOff *: SHORTSET; 
END; 

CONST 
(* BobFlag *) 
saveBob * = 0; 
boblsComp * = 1; 
bWaiting *= 8; 
bDrawn * = 9; 
bobsAway * = 10; 
bobNix * = 11; 
savePreserve * = 12; 
outStep * = 13; 

TYPE 

Bob * = STRUCT 
flags *: SET; (* BobFlags *) 
saveBuffer *: e.ADDRESS; 
imageShadow *: e.ADDRESS; 
betöre *: BobPtr; 
after *: BobPtr; 
bobVSprite *: VSpritePtr; 
bobComp *: AnimCompPtr; 
dBuffer *: DBufPacketPtr; 
END; 

AnimComp * = STRUCT 
flags * : INTEGER; 
timer* .INTEGER; 
timeSet *; INTEGER; 
nextComp *: AnimCompPtr; 
prevComp * : AnimCompPtr; 
nextSeq *: AnimCompPtr; 
prevSeq *: AnimCompPtr; 
animCRoutine *: e.ADDRESS; 
yTrans *: INTEGER; 
xTrans *: INTEGER; 
headOb *: AnimObPtr; 
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animBob *: BobPtr; 

END; 

AnimOb * = STRUCT 
nextOb *: AnimObPtr; 
prevOb *: AnimObPtr; 
clock * : LONGINT; 
anOldY *: INTEGER; 
anOldX *: INTEGER; 
anY * : INTEGER; 
anX *: INTEGER; 
yVel *: INTEGER; 
xVel *: INTEGER; 
yAccel *: INTEGER; 
xAccel * : INTEGER; 
ringYTrans * : INTEGER; 
ringXTrans * : INTEGER; 
animORoutine * : e.ADDRESS; 
headComp * : AnimCompPtr; 

END; 

DBufPacket * = STRUCT 
bufY *: INTEGER; 
bufX *: INTEGER; 
bufPath *: VSpritePtr; 
bufBuffer *: e.ADDRESS; 

END; 

CollTable * = STRUCT 
collPtrs *: ARRAY 16 OF e.ADDRESS 
END; 

BitMap * = STRUCT 
bytesPerRow *: INTEGER; 
rows * : INTEGER; 
flags *: BYTE; 
depth * : BYTE; 
pad* : INTEGER; 

planes *: ARRAY 8 OF e.ADDRESS; 
END; 

CONST 

(* DisplayFlags *) 
ntsc * = 0; 
genloc * = 1; 
pal * = 2; 

TYPE 

GfxBase * = STRUCT 
libNode *: e.Library; 
actiView *: ViewPtr; 
copinit *: CopinitPtr; 
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cia *: e.ADDRESS; 
blitter *: e.ADDRESS; 
loFlist * : e.ADDRESS; 
shFlist *: e.ADDRESS; 
blthd *: h.BltnodeRr; 
blttl *: h.BltnodePtr; 
bsblthd *: h.BltnodeRr; 
bsblttl *: h.BltnodePtr; 
vbsrv *: e.Interrupt; 
timsrv*: e.Interrupt; 
bltsrv *: e.Interrupt; 
textFonts *: e.List; 
defaultFont *: TextFontPtr; 
modes *: SET; 
vBlank * : BYTE; 
debug *: BYTE; 
beamSync *: INTEGER; 
bpIconO *: SET; 
spriteReserved *: BYTE; 
bytereserved *: BYTE; 
flags *: SET; 
blitLock*: INTEGER; 
blitNest *: INTEGER; 
blitWaitQ *: e.List; 
blitOwner *: e.TaskRr; 
waitQ *: e.List; 

displayFlags *: SHORTSET; (* DisplayFlags *) 
simpleSprites * : e.ADDRESS; 
maxDisplayRow * : INTEGER; 
maxDisplayColumn *: INTEGER; 
normalDisplayRows *: INTEGER; 
normalDisplayColumns *: INTEGER; 
normalDPMX *: INTEGER; 
normalDPMY *: INTEGER; 
lastChanceMemory *: e.SignalSemaphorePtr; 
IcMptr*: e.ADDRESS; 
microsPerLine *: INTEGER; 
minDisplayColumn *: INTEGER; 
reserved *: ARRAY 23 OF LONGINT; 

END; 

GfxBaseRr * = POINTER TO GfxBase; 

CONST 

blitMsgFault * = 4; 

TYPE 

Isrvstr * = STRUCT 
node *: e.Node; 
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iptr * : IsrvstrPtr; 
code*: e.ADDRESS; 
ccode * : e.ADDRESS; 
carg *: LONGINT; 

END; 

CONST 
(* LayerFlags *) 
layerSimple *= 0; 

layerSmart * = 1; 

layerSuper * = 2; 

layerUpdating * = 4; 

layerBackdrop * = 6; 

layerRefresh * = 7; 
layerClipRectsLost * = 8; 

TYPE 

Layerl nfo * = STRUCT 
layer *: LayerPtr; 

Ip *: LayerPtr; 
obs * : LayerPtr; 
freeClipRects * : e.MinList; 
lock *: e.SignalSemaphore; 
head *: e.List; 
longreserved *: LONGINT; 
flags *: SET; (* LayerFlags *) 
count * : SHORTINT; 
lockLayersCount *: SHORTINT; 
layerlnfoExtraSize * : INTEGER; 
blitbuff * : e.ADDRESS; 
layerlnfoExtra *: e.ADDRESS; 

END; 

CONST 

ImnRegion * = -1; 
newLayerlnfoCalled * = 01H; 

alertLayersNoMem * = MIN(LONGINT) + 3010000H; (* 083010000H *) 
TYPE 

Areainfo * = STRUCT 
vctrTbl * : e.ADDRESS; 
vctrPtr* : e.ADDRESS; 
flagTbl *: e.ADDRESS; 
flagPtr* : e.ADDRESS; 
count * : INTEGER; 
maxCount *: INTEGER; 
firstX * : INTEGER; 
firstY *: INTEGER; 
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END; 

TmpRas * = STRUCT 
rasPtr *: e.ADDRESS; 
size *: LONGINT; 

END; 

Gelsinfo * = STRUCT 
sprRsrvd *: SHORTINT; 
flags *: BYTE; 
gelHead *: VSpritePtr; 
gelTail *: VSpritePtr; 
nextLine *: e.ADDRESS; 
lastColor*: e.ADDRESS; 
collHandler *: CollTablePtr; 
leftmost *: INTEGER; 
rightmost* : INTEGER; 
topmost *: INTEGER; 
bottommost *: INTEGER; 
firstBlissObj *: e.ADDRESS; 
lastBlissObj * : e.ADDRESS; 
END; 

CONST 

(* DrawModes *) 
complement * = 1; 
inversvid * = 2; 
jaml * = SHORTSET{}; 
jam2 * = SHORTSET{0}; 

(* FontStyles *) 
underlined * = 0; 
bold * = 1; 
italic * = 2; 
extended * = 3; 
normalFont * = SHORTSET{}; 

(* FontFlags *) 
romFont * = 0; 
diskFont * = 1; 
revPath *= 2; 
tallDot *= 3; 
wideDot *= 4; 
proportional * = 5; 
designed * = 6; 
removed *= 7; 

(* RastPortFlags *) 
firstDot * = 0; 
oneDot * = 1; 
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dBuffer * = 2; 
areaOutline * = 3; 
noCrossFill * = 5; 

spriteAttached * = 080H; 

TYPE 

Point * = STRUCT 
x * ,y * : INTEGER; 

END; 

RastPort * = STRUCT 
layer *: LayerPtr; 
bitMap *: BitMapPtr; 
areaRrn *: e.ADDRESS; 
tmpRas *: TmpRasPtr; 
arealnfo *: ArealnfoRr; 
gelslnfo *: GelslnfoPtr; 
mask * : SHORTSET; 
fgPen * : BYTE; 
bgPen *: BYTE; 
aOIPen *: BYTE; 

drawMode *: SHORTSET; (* DrawModes *) 

areaPtSz * : BYTE; 

linPatCnt *: BYTE; 

dummy *: BYTE; 

flags *: SET; (* RastPortFlags *) 

linePtrn * : INTEGER; 

x *: INTEGER; 

y *: INTEGER; 

minterms *: ARRAY 8 OF BYTE; 
penWidth *: INTEGER; 
penHeight * : INTEGER; 
font *: TextFontPtr; 

algoStyle *: SHORTSET; (* FontStyles *) 

txFIags *: SHORTSET; (* FontFlags *) 

txHeight *: INTEGER; 

txWidth * : INTEGER; 

txBaseline *: INTEGER; 

txSpacing *: INTEGER; 

user *: e.ADDRESS; 

longreserved *: ARRAY 2 OF LONGINT; 

wordreserved *: ARRAY 7 OF INTEGER; 

reserved *: ARRAY 8 OF BYTE; 

END; 

TYPE 

RegionRectangle * = STRUCT 
next *: RegionRectanglePtr; 
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prev *: RegionRectanglePtr; 
bounds *: Rectangle; 

END; 

Region * = STRUCT 
bounds *: Rectangle; 
regionRectangle *: RegionRectanglePtr; 
END; 

SimpleSprite * = STRUCT 
posctldata *: e.ADDRESS; 
height *: INTEGER; 
x * : INTEGER; 
y *: INTEGER; 
num *: INTEGER; 

END; 

TextAttr* = STRUCT 
name *: e.ADDRESS; 
ySize *: INTEGER; 
style *: SHORTSET; (* FontStyleSet *) 
flags * : SHORTSET; (* FontFlags *) 
END; 

TextFont * = STRUCT 
message *: e.Message; 
ySize *: INTEGER; 
style * : SHORTSET; (* FontStyles *) 
flags * : SHORTSET; (* FontFlags *) 
xSize * : INTEGER; 
baseline *: INTEGER; 
boldSmear *: INTEGER; 
accessors * : INTEGER; 
loChar *: CHAR; 
hiChar *: CHAR; 
charData *: e.ADDRESS; 
modulo *: INTEGER; 
charLoc *: e.ADDRESS; 
charSpace *: e.ADDRESS; 
charKern *: e.ADDRESS; 

END; 

ColorMap * = STRUCT 
flags * : BYTE; 
type *: BYTE ; 
count *: INTEGER; 
colorTable *: e.ADDRESS; 

END; 

CONST 

(* ViewModes *) 
genlocVideo *= 1; 
lace * = 2; 
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pfba * = 6; 
extraHalfbrite * = 7; 


genlocAudio *= 8; 


dualpf 

* = 10; 

ham 

* = 11; 

vpHide 

* = 13; 

sprites 

* = 14; 

hires 

* = 15; 

TYPE 



ViewPort * = STRUCT 
next *: ViewPortPtr; 
colorMap *: ColorMapRr; 
dsplns *: CopListPtr; 
sprlns *: CopListPtr; 
clrlns *: CopListPtr; 
uCoplns *: UCopListPtr; 
dWidth *: INTEGER; 
dHeight *: INTEGER; 
dxOffset *: INTEGER; 
dyOffset *: INTEGER; 
modes *: SET; (* ViewModes *) 
spritePriorities *: BYTE; 
reserved *: BYTE; 
raslnfo *: RaslnfoPtr; 

END; 

View * = STRUCT 
viewPort *: ViewPortPtr; 
lofCprList *: CprlistRr; 
shfCprList *: CprlistPtr; 
dyOffset *: INTEGER; 
dxOffset * : INTEGER; 
modes *: SET; (* ViewModes *) 
END; 

Raslnfo * = STRUCT 
next *: RaslnfoRr; 
bitMap *: BitMapPtr; 
rxOffset *: INTEGER; 
ryOffset *: INTEGER; 

END; 

PROC * = PROCEDUREQ; 

VAR 

gfx *: GfxBasePtr; 


(* 


*) 
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(* $OvflChk- $RangeChk- $StackChk- $NilChk- $ReturnChk- $CaseChk- *) 


(*-graphics.library: -*) 


PROCEDURE AddAnimOb*{gfx,-156}( anOb{8}:AnimObPtr; 

VAR anKey{9}:AnimObPtr; 
rp{10}:RastPortPtr); 

PROCEDURE AddBob*{gfx,- 96}(Bob{8}:BobPtr; 

rp{9}:RastPortRr); 

PROCEDURE AddFont*{gfx,-480}(textFont{9}:TextFontPtr); 

PROCEDURE AddVSprite*{gfx,-102}(vs{8}:VSpriteRr; 

rp{9}:RastPortPtr); 

PROCEDURE AllocRaster*{gfx,-492}(width{0}:INTEGER; 

height{1}:INTEGER):e.ADDRESS; 

PROCEDURE AndRectRegion*{gfx,-504}(region{8}:RegionPtr; 

rectang{9} :RectanglePtr); 

PROCEDURE AndRegionRegion*{gfx,-624}(region1 {8}:RegionRr; 

region2{9}:RegionRr):BOOLEAN; 

PROCEDURE Animate*{gfx,-162}(VAR anKey{8}:AnimObRr; rp{9}:RastPortPtr); 

PROCEDURE AreaDraw*{gfx,-258}(rp{9} :RastPortRr; 
x{0}:INTEGER; 
y{1}:INTEGER):BOOLEAN; 

PROCEDURE AreaEllipse*{gfx,-186}(rp{9}:RastPortRr; 

cX{0}:INTEGER; 
cY{1}:INTEGER; 
a{2}: INTEGER; 
b{3}:INTEGER):BOOLEAN; 

PROCEDURE AreaEnd*{gfx J -264}(rp{9}:RastPortPtr):BOOLEAN; 

PROCEDURE AreaMove*{gfx,-252}(rp{9}:RastPortRr; 
x{0}:INTEGER; 
y{1}:INTEGER):BOOLEAN; 

PROCEDURE AskFo nt*{gf x ,-474} (rp{9} :RastPortPtr; 

textAttr{8} :TextAttrRr); 

PROCEDURE AskSoftStyle*{gfx,- 84}( 

rp{9}:RastPortRr) :SHORTSET; (* FontStyleSet *) 

PROCEDURE AttemptLockLayerRom*{gfx,-654}(iayer{13}:LayerPtr):BOOLEAN; 

PROCEDURE BltBitMap*{gfx,- 30}(srcBitMap{8}:BitMapPtr; 
srcX{0}:INTEGER; 
srcY{1}:INTEGER; 
dstBitMap{9} :BitMapPtr; 
dstX{2}:INTEGER; 
dstY{3}:INTEGER; 
sizeX{4}:INTEGER; 
sizeY{5}:INTEGER; 
minterm{6}:BYTE; 
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mask{7}:SHORTSET; 
tempA{10}:e. ADDRESS) :LONGINT; 
PROCEDURE BltBitMapRastPort*{gfx,-606}(srcbm{8}:BitMapRr; 

srcX{0}: INTEGER; 
srcY{1}:INTEGER; 
dest Rp{9}: RastPo rt Rr; 
destX{2}:INTEGER; 
destY{3} :INTEGE R; 
sizeX{4} :INTEGER; 
size Y {5}: INTEG E R; 
mlnterm{6}:BYTE); 

PROCEDURE BltClear*{gfx,-300}(memBlock{9}:e.ADDRESS; 

bytecount{0}:LONGINT; 
flags{1} :LONGSET); 

PROCEDURE BltMaskBitMapRastPort*{gfx,-636}(srcbm{8}:BitMapRr; 

srcX{0}:INTEGER; 
srcY{1}:INTEGER; 
destRp{9}:RastPortPtr; 
destX{2}: I NTEG E R; 
destY{3}:INTEGER; 
sizeX{4}: I NTEG E R; 
sizeY{5}:INTEGER; 
minterm{6}:BYTE; 
bltmask{10}:e. ADDRESS); 

PROCEDURE BltPattern*{gfx,-312}(rp{9}:RastPortPtr; 

mask{8}:e. ADDRESS; 
xl{0}:INTEGER; 
yl{1}:INTEGER; 
maxX{2}: INTEGER; 
maxY{3}:INTEGER; 
bytecnt{4}: INTEG E R); 

PROCEDURE BltTemplate*{gfx,- 36}(srcTemplate{8}:e. ADDRESS; 
srcX{0}:INTEGER; 
srcMod{1 }:INTEGER; 
rp{9}:RastPortPtr; 
dstX{2}: INTEGER; 
dstY{3}:INTEGER; 
sizeX{4}:INTEGER; 
size Y {5}: I NTEG E R); 

PROCEDURE CBump*{gfx,-366}(c{9}:UCopListRr); 

PROCEDURE ChangeSprite*{gfx,-420}(vp{8}:ViewPortPtr; 

s{9}:SimpleSpriteRr; 

newdata{10}:e.ADDRESS); 

PROCEDURE ClearEOL*{gfx,- 42}(rp{9}:RastPortRr); 

PROCEDURE ClearRectRegion*{gfx,-522}(region{8}:RegionPtr; 

rectangle{9}:RectanglePtr):BOOLEAN; 
PROCEDURE ClearRegion*{gfx,-528}(region{8}:RegionRr); 
PROCEDURE ClearScreen*{gfx,- 48}(rp{9}:RastPortRr); 
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PROCEDURE ClipBlit*{gfx,-552}(src{8}:RastPortPtr; 

srcX{0}:INTEGER; 

srcY{1}:INTEGER; 

dest{9}:RastPortPtr; 

destX{2}: INTEG E R; 

destY{3}:INTEGER; 

xSize{4}:INTEGER; 

ySize{5}:INTEGER; 

minterm{6}:BYTE); 

PROCEDURE CloseFont*{gfx,- 78}(font{9}:TextFontRr); 

PROCEDURE CMove*{gfx,-372}(c{9}:UCopLi$tPtr; 

a{0}:e. ADDRESS; 
v{1}:INTEGER); 

PROCEDURE CopySBitMap*{gfx,-450}(layer{8}:LayerPtr); 

PROCEDURE CWait*{gfx,-378}(c{9}:UCopListPtr; 
v{0}:INTEGER; 
h{1}:INTEGER); 

PROCEDURE DisownBlitter*{gfx,-462}(); 

PROCEDURE DisposeRegion*{gfx,-534}(region{8}:RegionRr); 
PROCEDURE DoCollision*{gfx,-108}(rp{9}:RastPortPtr); 

PROCEDURE Draw*{gfx r 246}(rp{9}:RastPortPtr; 
x{0}:INTEGER; 
y{1}:INTEGER); 

PROCEDURE DrawEllipse*{gfx,-180}(rp{9}:RastPortPtr; 

cX{0}:INTEGER; 

cY{1}:INTEGER; 

a{2}:INTEGER; 

b{3}:INTEGER); 

PROCEDURE DrawGList*{gfx,-114}(rp{9}:RastPortPtr; 

vp{8}:ViewPortPtr); 

PROCEDURE Flood*{gfx,-330}(rp{9}:RastPortPtr; 

mode{2}:LONGINT; 

x{0}:INTEGER; 

y{1}:INTEGER):BOOLEAN; 

PROCEDURE FreeColorMap*{gfx,-576}(colorMap{8}:ColorMapPtr); 
PROCEDURE FreeCopList*{gfx,-546}(coplist{8}:CopListRr); 

PROCEDURE FreeCprList*{gfx,-564}(cprlist{8}:CprlistPtr); 

PROCEDURE FreeGBuffers*{gfx,-600}(anOb{8}:AnimObPtr; 

rp{9}:RastPortPtr; 

db{0}:BOOLEAN); 

PROCEDURE FreeRaster*{gfx,-498}(p{8}:e.ADDRESS; 

width{0}:INTEGER; 

helght{1}:INTEGER); 

PROCEDURE FreeSprite*{gfx,-414}(pick{0}:INTEGER); 

PROCEDURE FreeVPortCopLists*{gfx,-540}(vp{8}:ViewPortRr); 
PROCEDURE GetColorMap*{gfx,-570}(entries{0}:LONGINT):ColorMapPtr; 
PROCEDURE GetGBuffers*{gfx,-168}(anOb{8}:AnimObPtr; 

rp{9}:RastPortPtr; 
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db{0}:BOOLEAN):BOOLEAN; 

PROCEDURE GetRGB4*{gfx,-582}(colorMap{8}:ColorMapPtr; 

entry{0}:LONGINT):LONGINT; 

PROCEDURE GetSprite*{gfx,-408}(sprite{8}:SimpleSpritePtr; 

pick{0}:INTEGER):INTEGER; 

PROCEDURE GraphicsReservedl *{gfx,-642}():LONGINT; 
PROCEDURE GraphicsReserved2*{gfx,-648}():LONGINT; 
PROCEDURE lnitArea*{gfx,-282}(VAR areainfo{8}:Areainfo; 

buffer{9} :e. ADD RESS; 
maxvectors{0} :INTEGER); 

PROCEDURE lnitBitMap*{gfx,-390}(VAR bm{8}:BitMap; 

depth{0}:INTEGER; 

width{1}:INTEGER; 

height{2}:INTEGER); 

PROCEDURE lnitGels*{gfx,-120}(head{8}:VSpriteRr; 

tail{9}:VSpritePtr; 
g I nf o{ 10} :Ge Is I nf oPt r); 

PROCEDURE lnitGMasks*{gfx,-174}(anOb{8}:AnimObPtr); 
PROCEDURE InitMasks*{gfx126}(vs{8}:VSpritePtr); 

PROCEDURE lnitRastPort*{gfx,-198}(VAR rp{9}:RastPort); 
PROCEDURE lnitTmpRas*{gfx,-468}(VAR tmpras{8}:TmpRas; 

buffer{9}:e. ADDRESS; 
size{0}:LONGINT); 

PROCEDURE lnitView*{gfx,-360}(VAR view{9}:View); 

PROCEDURE lnitVPort*{gfx,-204}(VAR vp{8}:ViewPort); 

PROCEDURE LoadRGB4*{gfx,-192}(vp{8}:ViewPortPtr; 

colors{9}:ARRAY OF INTEGER; 
count{0}:INTEGER); 

PROCEDURE LoadView*{gfx,-222}(view{9}:ViewPtr); 

PROCEDURE LockLayerRom*{gfx,-432}(layer{13}:LayerRr); 
PROCEDURE MakeVPort*{gfx,-216}(view{8}:ViewPtr; 

viewport{9} :ViewPortPtr); 

PROCEDURE Move*{gfx,-240}(rp{9}:RastPortRr; 
x{0}:!NTEGER; 
y{1}:INTEGER); 

PROCEDURE MoveSprite*{gfxr426}(vp{8}:ViewPortRr; 

sprite{9}:SimpleSpritePtr; 

x{0}:INTEGER; 

y{1}:INTEGER); 

PROCEDURE MrgCop*{gfx,-210}(view{9}:ViewPtr); 

PROCEDURE NewRegion*{gfx,-516}():RegionPtr; 

PROCEDURE OpenFont*{gfx,- 72}(textAttr{8}:TextAttrRr):TextFontRr; 
PROCEDURE OrRectRegion*{gfx,-510}(region{8}:RegionRr; 

rectang le{9}: Rectang le Ptr) :BOOLE AN; 
PROCEDURE OrRegionRegion*{gfx,-612}(region1{8}:RegionRr; 

region2{9}:RegionRr):BOOLEAN; 
PROCEDURE OwnBlitter*{gfx,-456}(); 

PROCEDURE PolyDraw*{gfx,-336}(rp{9}:RastPortPtr; 
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count{0}:INTEGER; 
array{8}:ARRAY OF Point); 

PROCEDURE QBIit*{gfx,-276}(bp{9) :h.BltnodePtr); 

PROCEDURE QBSBIit*{gfx,-294}(bsp{9}:h.BltnodePtr); 

PROCEDURE ReadPixel*{gfx,-318}(rp{9}:RastPortPtr; 

x{0}:INTEGER; 

y{1 }:INTEGER):LONGINT; 

PROCEDURE RectFil!*{gfx,-306}(rp{9}:RastPortPtr; 

xMin{0}:INTEGER; 
yMin{1}:INTEGER; 
xMax{2}:INTEGER; 
yMax{3}: INTEGER); 

PROCEDURE RemFont*{gfx,-486}(textFont{9}:TextFontPtr); 

PROCEDURE RemlBob*{gfx,-132}(bob{8}:BobPtr; 

rp{9}:RastPortPtr; 

vp{10}:ViewPortRr); 

PROCEDURE RemVSprite*{gfx,-138}(vs{8}:VSpriteRr); 

PROCEDURE ScrollRaster*{gfx,-396}(rp{9}:RastPortPtr; 

dx{0}:INTEGER; 

dy{1}:INTEGER; 

xMin{2}:INTEGER; 

yMin{3}:INTEGER; 

xMax{4}:INTEGER; 

y Max{5}: INTEG ER); 

PROCEDURE ScrollVPort*{gfx,-588}(vp{8}:ViewPortRr); 

PROCEDURE SetAPen*{gfx,-342}(rp{9}:RastPortPtr; 

pen{0}:INTEGER); 

PROCEDURE SetBPen*{gfx,-348}(rp{9}:RastPortRr; 

pen{0}:INTEGER); 

PROCEDURE SetCollision*{gfx,-144}(num{0}:LONGINT; 

routine{8}:PROC; 

glnfo{9}:GelslnfoRr); 

PROCEDURE SetDrMd*{gfx,-354}(rp{9}:RastPortRr; 

mode{0}:SHORTSET (* DrawModes *)); 

PROCEDURE SetFont*{gfx r 66}(rp{9}:RastPortPtr; 

font{8} :TextFontPtr); 

PROCEDURE SetRast*{gfx,-234}(rp{9}:RastPortPtr; 

pen{0}:INTEGER); 

PROCEDURE SetRGB4*{gfx,-288}(vp{8}:ViewPortPtr; 
n{0}:INTEGER; 
r{1}:INTEGER; 
g{2}:INTEGER; 
b{3}:INTEGER); 

PROCEDURE SetRGB4CM*{gfx,-630}(cm{8}:ColorMapRr; 
n{0}:INTEGER; 
r{1}:INTEGER; 
g{2}:INTEGER; 
b{3}:INTEGER); 
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PROCEDURE SetSoftStyle*{gfx,- 90}( 
rp{9}:RastPortRr; 

style{0}:SHORTSET; (* FontStyles *) 

enable{1}:SHORTSET (* FontStyles *)):SHORTSET; (* FontStyles *) 
PROCEDURE SortGList*{gfx,-150}(rp{9}:RastPortRr); 

PROCEDURE SyncSBitMap*{gfx,-444}(layer{8}:LayerPtr); 

PROCEDURE Text*{gfx,- 60}(rp{9}:RastPortRr; 

string{8}:ARRAY OF CHAR; 
cou nt{0} :LONG INT); 

PROCEDURE TextLength*{gfx,- 54}(rp{9}:RastPortRr; 

string{8}:ARRAY OF CHAR; 
count{0}:LONGINT):INTEGER; 

PROCEDURE UCopperListlnit*{gfx,-594}(copperüst{8}:UCopListPtr; 

num{0}:LONGINT):UCopListPtr; 

PROCEDURE UnlockLayerRom*{gfx,-438}(layer{13}:LayerRr); 

PROCEDURE VBeamPos*{gfx,-384}():LONGINT; 

PROCEDURE WaitBlit*{gfx,-228}(); 

PROCEDURE WaitBOVP*{gfx,-402}(vp{8}:ViewPortPtr); 

PROCEDURE WaitTOF*{gfx,-270}(); 

PROCEDURE WritePixel*{gfx,-324}(rp{9}:RastPortPtr; 
x{0}:INTEGER; 
y{ 1 }:INTEGER):BOOLEAN; 

PROCEDURE XorRectRegion*{gfx,-558}(region{8}:RegionRr; 

rectang le{9}: Rectang lePtr) :BOOLE AN; 
PROCEDURE XorRegionRegion*{gfx,-618}(region1{8}:RegionPtr; 

region2{9}:RegionPtr):BOOLEAN; 


(* 


*) 


(*- GfxMacros: -*) 


PROCEDURE OnDisplay*; 

BEGIN h.custom.dmacon := h.bitSet + {h.raster} END OnDisplay; 
PROCEDURE OffDisplay*; 

BEGIN h.custom.dmacon := h.bitClr + {h.raster} END OffDisplay; 


PROCEDURE OnSprite*; 

BEGIN h.custom.dmacon := h.bitSet + {h.sprite} END OnSprite; 
PROCEDURE OffSprite*; 

BEGIN h.custom.dmacon := h.bitClr + {h.sprite} END OffSprite; 
PROCEDURE OnVBIank*; 

BEGIN h.custom.intena := h.bitSet + {e.vertb} END OnVBIank; 


14/55 






14. Die Amiga-Interface-Module 


PROCEDURE OffVBIank*; 

BEGIN h.custom.intena := h.bitClr + {e.vertb} END OffVBIank; 

PROCEDURE SetOPen*(w: RastPortPtr; c: BYTE); 

BEGIN 

w.aOIPen := c; 

INCL(w.flags,areaOutline); 

END SetOPen; 

PROCEDURE SetDrPt*(w: RastPortPtr; p: INTEGER); 

BEGIN 

w.linePtrn := p; 

INCL(w.flags.firstDot); 

END SetDrPt; 

PROCEDURE SetWrMsk*(w: RastPortRr; m: SHORTSET); 

BEGIN w.mask := m END SetWrMsk; 

PROCEDURE SetAfPt*(w: RastPortRr; p: e.ADDRESS; n: BYTE); 
BEGIN 

w.areaPtrn := p; 
w.areaPtSz := n; 

END SetAfR; 

PROCEDURE BndryOff*(w: RastPortRr); 

BEGIN EXCL(w.flags,areaOutline) END BndryOff; 

PROCEDURE CINIT*(c: UCopListRr; n: LONGINT); 

BEGIN IF UCopperListlnit(c,n)=NILTHEN END ENDCINIT; 

PROCEDURE CMOVE*(c: UCopListRr; a: e.ADDRESS; b: INTEGER); 
BEGIN CMove(c,a,b); CBump(c) END CMOVE; 

PROCEDURE CWAIT*(c: UCopListRr; a,b: INTEGER); 

BEGIN CWait(c,a,b); CBump(c) END CWAIT; 

PROCEDURE CEND*(c: UCopListPtr); 

BEGIN CWAIT(c,10000,255) END CEND; 


r*) 


BEGIN 

gfx := s.VAL(GfxBasePtr,e.OpenLibrary("graphics.library ,, ,33)); 
IF gfx = NIL THEN HALT(O) END; 


14/56 


Graphics 


CLOSE 

IFgfx#NILTHEN e.CloseLibrary(s.VAL(e.LibraryRr,gfx)) END; 
END Graphics. 
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Hardware: 


MODULE Hardware; (* $lmplementation- *) 

IMPORT e:Exec; 

CONST 
(* AdkFlags *) 
useOvI * = 0; 
use1v2 * = 1; 
use2v3 * = 2; 
use3vn * = 3; 
useOpI * = 4; 
use1p2 * = 5; 
use2p3 * = 6; 
use3pn * = 7; 
fast * = 8; 
msbSync * = 9; 
wordSync * = 10; 
uartBrk *=11; 
mfmPrec * = 12; 
preCompO * = 13; 
preCompl * = 14; 
adkSet * = 15; 

preOOOns* = {}; 
prel 40ns * = {preCompO}; 
pre280ns * = {preCompl}; 
pre560ns* = {preCompO .preCompl}; 

TYPE 

Audiolnfo * = STRUCT 
acptr *: e.ADDRESS; 
aclen *: INTEGER; 
acper*: INTEGER; 
acvol *: INTEGER; 
acdat *: INTEGER; 
acpad *: ARRAY 2 OF INTEGER; 

END; 

AudioChannels * = ARRAY 4 OF Audiolnfo; 

CONST 
(* BCOFlags *) 
nanbnc * = 0; 
nanbc * = 1; 
nabnc * = 2; 
nabe * = 3; 
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anbnc * = 4; 
anbc * = 5; 
abnc * = 6; 
abc * = 7; 
dest * = 8; 
srcC * = 9; 
srcB * = 10; 
srcA * = 11; 
ashl * = 12; 
ash2 * = 13; 
ash4 * = 14; 
ashö * = 15; 

aORb * = {abc,anbc,nabe,abnc,anbnc,nabnc}; 
aORc * = {abc,nabe,abnc,anbc,nanbe,anbnc}; 
aXORc * = {nabe,abnc,nanbe,anbnc}; 
aTOd * = {abc,anbc,abnc,anbnc}; 

(* BC1 Flags *) 
lineMode * = 0; 
desc * = 1; 
fillCarryln * = 2; 
fillOr * = 3; 
filIXor * = 4; 
ovFIag * = 5; 
signFlag * = 6; 
bshl * = 12; 
bsh2 * = 13; 
bsh4 * = 14; 
bsh8 * = 15; 

oneDot * = desc; 
blitReverse * = desc; 
aul * = {fillCarryln}; 
sul * = {fillOr}; 
sud * = {filIXor}; 
octantl * = sud; 
octant2 * = {}; 
octant3 * = sul; 
octant4 * = aul+sud; 
octantö * = aul+sul+sud; 
octantß * = aul+sul; 
octant7 * = aul; 
octant8 * = sul+sud; 

(* BPLCOFIags *) 
ersy * = 1; 
lace * = 2; 
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Ipen * = 3; 
gaud * = 8; 
color * = 9; 
dblpf * = 10; 
homod* = 11; 
bpuO * = 12; 
bpul * = 13; 
bpu2 * = 14; 
hires * = 15; 

TYPE 

BltnodePtr * = POINTER TO Bltnode; 
Bltnode * = STRUCT 
n *: BltnodePtr; 
function * : e.ADDRESS; 
stat *: CHAR; 
blitsize *: INTEGER; 
beamsync *: INTEGER; 
cleanup *: e.ADDRESS; 

END; 

CONST 

cleanup * = 40H; 
cleanme * = cleanup; 

(* CollisionControlFlags *) 
planel * = 0; 

plane2 * = 1; 

plane3 * = 2; 

plane4 * = 3; 

planeö * = 4; 

plane6 * = 5; 

enablePlanel * = 6; 
enablePlane2 * = 7; 
enablePlane3 * = 8; 
enablePlane4 * = 9; 
enablePlaneö * = 10; 
enablePlaneö * = 11; 
enableSpriteOl * = 12; 
enableSprite23 * = 13; 
enableSprite45 * = 14; 
enableSprite67 * = 15; 

(* CollisionFlags *) 
play1toPlay2 * = 0; 
playltoSpriteOl * = 1; 
play1toSprite23 * = 2; 
play1toSprite45 * = 3; 


14/60 








Hardware 


play1toSprite67 * = 4; 
play2toSprite01 * = 5; 
play2toSprite23 * = 6; 
play2toSprite45 * = 7; 
play2toSprite67 * = 8; 
sprite01toSprite23 * = 9; 
sprite01toSprite45 * = 10; 
sprite01toSprite67 * = 11; 
sprite23toSprite45 * = 12; 
sprite23toSprite67 * = 13; 
sprite45toSprite67 * = 14; 

(* DiskFlags *) 
dfO * = 0; 

dfl * = 1; 

df2 * = 2; 

df3 *« 3; 

wordEqual * = 4; 
diskWrite * = 5; 
dmaOn * = 6; 
dskByte * = 7; 

TYPE 

Coord * = STRUCT 
v * ,h *: SHORTINT; 

END; 

Diskinfo * = STRUCT 
flags *: SHORTSET; (* DiskFlags *) 
data * : BYTE; 


END; 


CONST 

(* DmaFlags *) 

audO 

* = 0 

audl 

* = 1 

aud2 

* = 2 

aud3 

* = 3 

disk 

* = 4; 

sprite 

* = 5; 

blitter 

* = 6; 


copper * = 7; 
raster * = 8; 
master * = 9; 
blithog * = 10; 
bltnzero * = 13; 
bltdone * = 14; 
dmaSet * = 15; 
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dmaAll * = {audO..raster}; 
bitSet * = {dmaSet}; 
bitClr* = {}; 

CONST 
hSizeBits * = 6; 
vSizeBits * = 16-hSizeBits; 
hSizeMask * = 03FH; 
vSizeMask * = 03FFH; 
maxBytesPerRow * = 128; 

(* PotFlags *) 

Start * = 0; 
datalx * = 8; 
outlx * = 9; 
dataly * = 10; 
outly * = 11; 
datarx *=12; 
outrx * = 13; 
datary * = 14; 
outry * = 15; 

(* SerialFlags *) 
d8 * = 0; 
stop * = 1; 
sf2 * = 2; 
rxd * = 3; 
tsre * = 4; 
tbe * = 5; 
rbf * = 6; 
ovrun * = 7; 

TYPE 

Seriallnfo * = STRUCT 
flags *: SHORTSET; (* SerialFlags *) 
data* :CHAR; 

END; 

CONST 

(* SpriteControlFlags *) 


sho * 

^ = 0 

ev8 * 

* = J \ 

sv8 * 

= 2 

sct3* 

= 3 

sct4* 

= 4 

sct5" 

= 5 

sct6 * 

= 6 

att * 

= 7; 
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TYPE 

SpriteControllnfo * = STRUCT 
ev *: BYTE; 

flags *: SHORTSET; (* SpriteControlFiags *) 

END; 

Sprite Info * = STRUCT 
pos * : INTEGER; 
ctl *: SpriteControllnfo; 
data * : LONGINT; 

END; 

Sprites * = ARRAY 8 OF Spritelnfo; 

Custom * = STRUCT 
bltddat *: INTEGER; 
dmaconr * : SET; (* DmaFlags *) 
vposr*: LONGINT; 
dskdatr *: INTEGER; 
joyOdat *: Coord; 
joyldat *: Coord; 
clxdat *: SET; (* CollisionFlags *) 
adkconr *: SET; (* AdkFlags *) 
potOdat *: Coord; 
potldat *: Coord; 
potinp *: SET; (* PotFlags *) 
serdatr *: Seriallnfo; 
dskbytr * : Diskinfo; 
intenar *: SET; (* Exec.IntFlags *) 
intreqr *: SET; (* Exec.IntFlags *) 
dskpt * : e.ADDRESS; 
dsklen *: INTEGER; 
dskdat* : INTEGER; 
refptr *: INTEGER; 
vposw *: LONGINT; 
copcon *: SET; 
serdat *: Seriallnfo; 
serper* : INTEGER; 
potgo *: SET; (* PotFlags *) 
joytest *: Coord; 
strequ * : INTEGER; 
strvbl *: INTEGER; 
strhor*: INTEGER; 
strlong *: INTEGER; 
bltconO *: SET; (* BCOFIags *) 
bitconl *: SET; (* BC1 Flags *) 
bltafwm *: SET; 
bltalwm *: SET; 
bltcpt *: e.ADDRESS; 


14/63 



14. Die Amiga-Interface-Module 


bltbpt * : e.ADDRESS; 

bltapt *: e.ADDRESS; 

bltdpt * : e.ADDRESS; 

bltsize *: INTEGER; 

pad2d *: ARRAY 3 OF INTEGER; 

bltcmod * : INTEGER; 

bltbmod *: INTEGER; 

bltamod *: INTEGER; 

bltdmod *: INTEGER; 

pad34 *: ARRAY 4 OF INTEGER; 

bltcdat *: INTEGER; 

bltbdat *: INTEGER; 

bltadat *: INTEGER; 

pad3b *: ARRAY 4 OF INTEGER; 

dsksync*: INTEGER; 

copllc*: e.ADDRESS; 

cop2lc *: e.ADDRESS; 

copjmpl * : INTEGER; 

copjmp2 * : INTEGER; 

copins *: INTEGER; 

diwstrt *: Coord; 

diwstop *: Coord; 

ddfstrt *: Coord; 

ddfstop *: Coord; 

dmacon *: SET; (* DmaFlags *) 

clxcon *: SET; (* CollisionControlFlags *); 

intena *: SET; (* Exec.IntFlags *) 

intreq *: SET; (* Exec.IntFlags *) 

adkcon *: SET; (* AdkFlags *) 

aud * : AudioChannels; 

bplpt * . ARRAY 6 OF e.ADDRESS; 

pad7c *: ARRAY 4 OF INTEGER; 

bpIconO *: SET; (* BPLCOFIags *) 

bplconl *: INTEGER; 

bplcon2 *: INTEGER; 

pad83 *: INTEGER; 

bpllmod*: INTEGER; 

bpl2mod *: INTEGER; 

pad86 *: ARRAY 2 OF INTEGER; 

bpldat *: ARRAY 6 OF INTEGER; 

pad8e *: ARRAY 2 OF INTEGER; 

sprpt * : ARRAY 8 OF e.ADDRESS; 

spr *: Sprites; 

color * : ARRAY 32 OF INTEGER; 

END; 

VAR 

custom * [0DFF000H]: Custom; 
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CONST 

(* CialcrFlags *) 
ta * = 0; 
tb * = 1; 
alrm * = 2; 
sp * = 3; 
flg * = 4; 
setclr * = 7; 

ir * = setclr; (* On read setclr has the meaning of ir *) 

(* CiaCraFlags *) 
craStart * = 0; 
craPbon * = 1; 
craOutmode * = 2; 
craRunmode * = 3; 
craLoad * = 4; 
cralnmode * = 5; 
craSpmode * = 6; 
craTodin * = 7; 

(* CiaCrbFlags *) 
crbStart * = 0; 
crbPbon * = 1; 
crbOutmode * = 2; 
crbRunmode * = 3; 
crbLoad * = 4; 
crblnmodeO * = 5; 
crblnmodel * = 6; 
crbAlarm * = 7; 

(* CiaaPraFlags *) 
overlay * = 0; 
led * = 1; 
dskChange * = 2; 
dskProt * = 3; 
dskTrackO * = 4; 
dskRdy * = 5; 
gamePortO * = 6; 
gamePortl * = 7; 

(* CiabPraFlags *) 
prtrBusy * = 0; 
prtrPOut * = 1; 
prtrSel * = 2; 
comDSR * = 3; 
comCTS * = 4; 
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comCD * = 5; 
comRTS * = 6; 
comDTR * = 7; 

(* CiabPrbFlags *) 
dskStep * = 0; 
dskDirec * = 1; 
dskSide * = 2; 
dskSelO * = 3; 
dskSell * = 4; 
dskSe!2 * = 5; 
dskSel3 * = 6; 
dskMotor *= 7; 

TYPE 

Pad * - ARRAY 254 OF SHORTSET; 

CIAA * = STRUCT 

pra *: SHORTSET; (* CiaaPraFlags *) padO *: Pad; 

prb *: SHORTSET; padl * : Pad; 

ddra *: SHORTSET; (* CiaaPraFlags *) pad2 *: Pad; 

ddrb *: SHORTSET; (* CiaaPrbFlags *) pad3 *: Pad; 

talo *: BYTE; pad4 *: Pad; 

tahi *: BYTE; pad5 *; Pad; 

tblo *: BYTE; pad6 *: Pad; 

tbhi *: BYTE; pad7 *: Pad; 

todlow *: BYTE; pad8 *: Pad; 

todmid *: BYTE; pad9 *: Pad; 

todhi *: BYTE; padIO*: Pad; 

unusedreg *: SHORTSET; padll *: Pad; 

sdr *: SHORTSET; padl 2 *: Pad; 

icr *: SHORTSET; (* CialcrFlags *) padl3 *: Pad; 

cra *: SHORTSET; (* CiaCraFlags *) padl4 *: Pad; 

erb *: SHORTSET; (* CiaCrbFlags *) 

END; 

CIAB * = STRUCT 

pra *: SHORTSET; (* CiabPraFlags *) padO *: Pad; 

prb *: SHORTSET; (* CiabPrbFlags *) padl * : Pad; 

ddra *: SHORTSET; (* CiabPraFlags *) pad2 *: Pad; 

ddrb *: SHORTSET; (* CiabPrbFlags *) pad3 *: Pad; 

talo *: BYTE; pad4 * : Pad; 

tahi *: BYTE; pad5 *: Pad; 

tblo *: BYTE; pad6 *: Pad; 

tbhi *: BYTE; pad7 *: Pad; 

todlow *: BYTE; pad8 *: Pad; 

todmid *: BYTE; pad9 *: Pad; 

todhi*: BYTE; padIO*: Pad; 

unusedreg *: SHORTSET; padll *: Pad; 

sdr *: SHORTSET; padl 2 *: Pad; 
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icr *: SHORTSET; (* CialcrFlags *) pad13 * : Pad; 
cra * : SHORTSET; (* CiaCraFlags *) pad14 *: Pad; 
erb * : SHORTSET; (* CiaCrbFlags *) 

END; 

VAR 

ciaa * [OBFEOOIH] : CIAA; 
ciab * [0BFD000H] : CIAB; 

END Hardware. 
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Icon: 


MODULE Icon; 

IMPORT e: Exec, 
wb: Workbench, 
I: Intuition, 
s: SYSTEM; 


VAR 

base *: e.LibraryPtr; 

PROCEDURE AddFreeList * {base, -72}( 

free{8}:wb.FreeListRr; mem{9}:e.ADDRESS; 
len{10} :LONG INT) :BOOLE AN; 

PROCEDURE AllocWBObject * {base, -66}():e.ADDRESS; 

PROCEDURE BumpRevision * {base, -108}(new{8},old{9}: ARRAY OF CHAR); 

PROCEDURE FreeDiskObject * {base, -90}(obj{8}:wb.DiskObjectPtr); 

PROCEDURE FreeFreeList * {base, -54}{free{8}:wb.FreeListPtr); 

PROCEDURE FreeWBObject * {base, -60}(obj{8}:e.ADDRESS); 

PROCEDURE FindToolType * {base, -96}( 
toolTypes{8}: e.ADDRESS; 
typeName{9}: ARRAY OF CHAR):e.ADDRESS; 

PROCEDURE GetDiskObject * {base, -78}( 

name{8}: ARRAY OF CHAR) :wb. DiskObjectRr; 

PROCEDURE Getlcon * {base, -42}(name{8}: ARRAY OF CHAR; 
icon{9}:wb.DiskObjectPtr; 
f{10}:wb.FreeListPtr):LONGINT; 

PROCEDURE GetWBObject * {base, -30}( 

name{8}: ARRAY OF CHAR):e.ADDRESS; 

PROCEDURE MatchToolValue * {base, -102}( 

typeString{8},val{9}: ARRAY OF CHAR) :BOOLEAN; 

PROCEDURE PutDIskObject * {base, -84}( 
name{8}: ARRAY OF CHAR; 
obj{9} :wb. DiskObjectRr) :BOOLE AN; 

PROCEDURE Puticon * {base, -48}( 
name{8}: ARRAY OF CHAR; 
obj{9} :wb. DiskObjectRr) :LONG I NT; 

PROCEDURE PutWBObject * {base, -36}( 
name{8}: ARRAY OF CHAR; 
obj{9} :e. ADDRESS) :LONG INT; 

(* $OvflChk- $RangeChk- $StackChk- $NilChk- $ReturnChk- $CaseChk- *) 

BEGIN 


base := e.Openl_ibrary("icon.library ,, ,33); 
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IF base=NIL THEN 

s.SETREG(0,I.DisplayAlert(0,"x00x64x14missing icon.library!'\50)); 
HALT(O) 

END; 

CLOSE 

IF base#NILTHEN e.CloseLibrary(base) END; 

END Icon. 
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Input: 


MODULE Input; (* $lmplementation- *) 
IMPORT e *: Exec; 

CONST 

inputName * = "input.device"; 
addHandler * = e.nonstd+0; 
remHandler * = e.nonstd+1; 
writeEvent * = e.nonstd+2; 
setThresh * = e.nonstd+3; 
setPeriod * = e.nonstd+4; 
setMPort * = e.nonstd+5; 
setMType * = e.nonstd+6; 
setMTrig * = e.nonstd+7; 

END Input. 
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InputEvent: 

MODULE InputEvent; (* $lmplementation- *) 


IMPORT Exec, Timer; 

CONST 

(* Class *) 
null * = 0; 
rawkey * = 1; 
rawmouse * = 2; 
event * = 3; 

pointerpos * = 4; 
timer * = 6; 

gadgetdown * = 7; 
gadgetup * = 8; 
requester * = 9; 
menulist * = 10; 
closewindow * = 11; 
size window * = 12; 
refreshwindow * = 13; 
newprefs * = 14; 
diskremoved * = 15; 
diskinserted * = 16; 
activewindow * = 17; 
inactivewindow * = 18; 


classMax * = 18; 
upPrefix * = 080H; 
keyCodeFirst * = 00H; 
keyCodeLast * = 077H; 
commCodeFirst * = 078H; 
commCodeLast * = 07FH; 
cOFirst * = 00H; 
cOLast * = 01 FH; 
asciiFirst * = 020H; 
asciiLast * = 07EH; 
asciiDel * = 07FH; 
cl First * = 080H; 
cILast * = 09FH; 
latinl First * = OAOH; 
latinILast * = OFFH; 
IButton * = 068H; 
rButton * = 069H; 
mButton * = 06AH; 
noButton * = OFFH; 
newActive * = 01H; 
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reqClear* = 00H; 
reqSet* = 01H; 

(* Qualifiers *) 

IShift * = 0; 

rShift *= 1; 

capsLock * = 2; 
control *= 3; 
lAlt * = 4; 

rAlt * = 5; 

ICommand * = 6; 
rCommand * = 7; 
numericPad * = 8; 
repeat * = 9; 
interrupt * = 10; 
multiBroadcast * = 11; 
midButton *=12; 
rightButton * = 13; 
leftButton * = 14; 
relativeMouse * = 15; 

TYPE 

InputEventRr * = POINTER TO InputEvent; 
InputEvent * = STRUCT 
nextEvent * : InputEventPtr; 
dass *: SHORTINT; (* Class *) 
subClass *: SHORTINT; (* Class *) 
code *: INTEGER; 
qualifier *: SET; (* Qualifiers *) 
x * ,y *: INTEGER; 
timeStamp *: Timer.TimeVal 
END; 

InputEventAdr * = STRUCT 
nextEvent *: InputEventPtr; 
class *: SHORTINT; (* Class *) 
subClass *: SHORTINT; (* Class *) 
code *: INTEGER; 
qualifier *: SET; (* Qualifiers *) 
eventAddress *: Exec.ADDRESS; 
timeStamp *: Timer.TimeVal 
END; 

END InputEvent. 
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Intuition: 


MODULE Intuition; 

IMPORT e: Exec, 
g: Graphics, 
ie: InputEvent, 

Timer, 

KeyMap, 
s: SYSTEM; 

TYPE 

BorderPtr * = POINTER TO Border; 

GadgetPtr * = POINTER TO Gadget; 

ImagePtr * = POINTER TO Image; 

IntuiMessagePtr * = POINTER TO IntuiMessage; 

IntuiTextPtr * = POINTER TO IntuiText; 

MenultemPtr * = POINTER TO Menuitem; 

MenuPtr * = POINTER TO Menu; 

PreferencesPtr * = POINTER TO Preferences; 

ProplnfoPtr * = POINTER TO Proplnfo; 

RememberPtr * = POINTER TO Remember; 

RequesterPtr * = POINTER TO Requester; 

ScreenPtr * = POINTER TO Screen; 

StringlnfoPtr * = POINTER TO Stringinfo; 

WindowPtr * = POINTER TO Window; 

CONST 

menuEnabled * = 0; 

miDrawn * = 8; 

TYPE 

Menu * = STRUCT 
nextMenu * : MenuPtr; 
leftEdge *: INTEGER; 
topEdge *: INTEGER; 
width *: INTEGER; 
height *: INTEGER; 
flags *: SET; 

menuName *: e.ADDRESS; 
firstltem *: MenultemPtr; 
jazzX * : INTEGER; 
jazzY * : INTEGER; 
beatX *: INTEGER; 
beatY *: INTEGER; 

END; 
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CONST 

(* MenultemFlags *) 
checklt * = 0; 
itemText * = 1; 
commSeq * = 2; 
menuToggle *= 3; 
itemEnabled * = 4; 
highComp * = 6; 
highBox * = 7; 
checked * = 8; 
isDrawn * = 12; 
highltem * = 13; 
menuToggled * = 14; 

highNone * = {highBox,highComp}; 
checkWidth * = 19; 
commWidth * = 27; 
lowCheckWidth * = 13; 
lowCommWidth * = 16; 

TYPE 

Menu Item * = STRUCT 
nextltem * : MenultemPtr; 
leftEdge* : INTEGER; 
topEdge* : INTEGER; 
width *: INTEGER; 
height *: INTEGER; 
flags *: SET; (* MenuultemFlags *) 
mutualExclude *: LONGSET; 
itemFill *: e.ADDRESS; 
selectFill *: e.ADDRESS; 
command *: CHAR; 
subltem *: MenultemPtr; 
nextSelect *: INTEGER; 

END; 

CONST 

(* RequesterFlags *) 
pointRel *= 0; 
preDrawn *= 1; 
noisyReq * = 2; 
reqOffWindow * = 12; 
req Active * = 13; 
sysRequest * = 14; 
deferRefresh * = 15; 

TYPE 

Requester * = STRUCT 
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olderRequest *: RequesterPtr; 
leftEdge *: INTEGER; 
topEdge *: INTEGER; 
width *: INTEGER; 
height *: INTEGER; 
relLeft * : INTEGER; 
relTop * : INTEGER; 
reqGadget *: GadgetPtr; 
reqBorder *: BorderPtr; 
reqText *: IntuiTextPtr; 
flags * : SET; (* RequesterFlags *) 
backFill *: BYTE; 
reqLayer *: g.LayerPtr; 
reqPadl *: ARRAY 32 OF SHORTINT; 
imageBMap *: g.BitMapPtr; 
rWindow *: WindowPtr; 
reqPad2 *: ARRAY 36 OF SHORTINT; 
END; 

CONST 

(* GadgetFlags *) 
gadgHBox * = 0; 
gadgHlmage * = 1; 
gadglmage * = 2; 
gRelBottom * = 3; 
gRelRight * = 4; 
gRelWidth * = 5; 
gRelHeight * = 6; 
selected * = 7; 
gadgDisabled * = 8; 

(* ActivationFlags *) 
relVerify * = 0; 
gadglmmediate * = 1; 
endGadget * = 2; 
followMouse * = 3; 
rightBorder * = 4; 
leftBorder * = 5; 
topBorder * = 6; 
bottomBorder * = 7; 
toggleSelect * = 8; 
stringCenter * = 9; 
stringRight * = 10; 
longint * = 11; 
altKeyMap * = 12; 
boolExtend * = 13; 

gadgHighbits * = {gadgHBox..gadgHlmage}; 
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gadgHNone * = {gadgHBox,gadgHlmage}; 

gadgHComp * = {}; 

boolGadget * = 0001H; 

gadget0002 * = 0002H; 

propGadget * = 0003H; 

strGadget * = 0004H; 

sizing * = 001 OH; 

wDragging * = 0020H; 

sDragging * = 0030H; 

wllpFront * = 0040H; 

sUpFront * = 0050H; 

wDownBack * = 0060H; 

sDownBack * = 0070H; 

close * = 0080H; 

reqGadget * = 1000H; 

gzzGadget * = 2000H; 

scrGadget * = 4000H; 

sysGadget * =-8000H; (* sorry für das Vorzeichen, es gibt ja keine CARDINALs... *) 
gadgetType * = {10..15}; 

TYPE 

Gadget * = STRUCT 
nextGadget * : GadgetPtr; 
leftEdge * : INTEGER; 
topEdge *: INTEGER; 
width *: INTEGER; 
height * : INTEGER; 
flags *: SET; (* GadgetFlags *) 
activation *: SET; (* ActivationFlags *) 
gadgetType *: INTEGER; 
gadgetRender *: e.ADDRESS; 
selectRender * : e.ADDRESS; 
gadgetText * : IntuiTextPtr; 
mutualExclude *: LONGSET; 
speciallnfo *: e.ADDRESS; 
gadgetID *: INTEGER; 
userData *: e.ADDRESS; 

END; 

CONST 
boolMask * = 1; 

TYPE 

Boollnfo * = STRUCT 
flags *: SET; 
mask *: e.ADDRESS; 
reserved *: LONGINT; 

END; 
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(* ProplnfoFlags *) 
autoKnob * = 0; 
freeHoriz * = 1; 

freeVert * = 2; 

propBorderless * = 3; 
knobHit * = 8; 

knobVmin * = 4; 
knobHmin * = 6; 
maxBody * = -1; 
maxPot * = -1; 

TYPE 

Proplnfo * = STRUCT 
flags *: SET; (* ProplnfoFlags *) 
horizPot* : INTEGER; 
vertPot * : INTEGER; 
horizBody * : INTEGER; 
vertBody * : INTEGER; 
cWidth * : INTEGER; 
cHeight * : INTEGER; 
hPotRes * : INTEGER; 
vPotRes * : INTEGER; 
leftBorder * : INTEGER; 
topBorder * : INTEGER; 

END; 

Stringinfo * = STRUCT 
buffer *: e.ADDRESS; 
undoBuffer * : e.ADDRESS; 
bufferPos *: INTEGER; 
maxChars *: INTEGER; 
dispPos * : INTEGER; 
undoPos* : INTEGER; 
numChars * : INTEGER; 
dispCount *: INTEGER; 
cLeft* : INTEGER; 
cTop *: INTEGER; 
layerPtr*: g.LayerPtr; 
longlnt *: LONGINT; 
altKeyMap *: KeyMap.KeyMapPtr; 
END; 

CONST 

autoFrontPen * = 0; 
autoBackPen * = 1; 




14. Die Amiga-Interface-Module 


autoDrawMode * = g.jam2; 
autoLeftEdge * = 6; 
autoTopEdge * = 3; 
autolTextFont * = NIL; 
autoNextText * = NIL; 

TYPE 

IntuiText * = STRUCT 
frontPen *: SHORTINT; 
backPen *: SHORTINT; 
drawMode *: SHORTSET; (* g.DrawModes *) 
leftEdge*: INTEGER; 
topEdge *: INTEGER; 
iTextFont * : g.TextAttrPtr; 
iText * : e.ADDRESS; 
nextText *: IntuiTextPtr; 

END; 

Border * = STRUCT 
leftEdge * : INTEGER; 
topEdge *: INTEGER; 
frontPen *: SHORTINT; 
backPen * : SHORTINT; 
drawMode * : SHORTSET; (* g.DrawModes *) 
count *: SHORTINT; 
xy *: e.ADDRESS; 
nextBorder *: BorderPtr; 

END; 

Image * = STRUCT 
leftEdge*: INTEGER; 
topEdge * : INTEGER; 
width *: INTEGER; 
height *: INTEGER; 
depth *: INTEGER; 
imageData *: e.ADDRESS; 
planePick *: SHORTSET; 
planeOnOff *: SHORTSET; 
nextlmage *: ImagePtr; 

END; 

CONST 

(* IDCMPFIags *) 
sizeVerify * = 0; 
newSize * = 1; 
refreshWindow * = 2; 
mouseButtons * = 3; 
mouseMove * = 4; 
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gadgetDown * = 5; 
gadgetUp * = 6; 
reqSet * = 7; 

menuPick * = 8; 
closeWindow * = 9; 
rawKey * = 10; 

reqVerify * = 11; 

reqClear * = 12; 

menuVerify * = 13; 
newPrefs * = 14; 
disklnserted * = 15; 
diskRemoved * = 16; 
wbenchMessage * = 17; 
activeWindow * = 18; 
inactiveWindow * = 19; 
deltaMove * = 20; 
vanillaKey * = 21; 
intuiTicks * = 22; 

lonelyMessage * = 31; 

selectUp * = ie.lButton+ie.upPrefix; (* mouseButtons *) 

selectDown * = ie.lButton; 

menullp * = ie.rButton+ie.upPrefix; 

menuDown * = ie.rButton; 

menuNull * = -1; (* menuPick *) 

noMenu * = 1 FH; noltem * = 3FH; noSub * = 1 FH; 

keyCodeQ * = 10H; (* rawKey *) 

keyCodeX * = 32H; 

keyCodeV * = 34H; 

keyCodeB* = 35H; 

keyCodeN * = 36H; 

keyCodeM * = 37H; 

cursorllp * = 4CH; 

cursorDown * = 4DH; 

cursorRight* = 4EH; 

cursorLeft * = 4FH; 

menuHot * = 1; (* menuVerify *) 

menuCancel * = 2; 

menuWaiting * = 3; 

okOk * = menuHot; 

okAbort * = 4; 

okCancel * = menuCancel; 

wbenchOpen * = 1; (* wbenchMessage *) 

wbenchClose * = 2; 

(* IntuiMessage.qualifier *) 
altLeft * = {ie.lAlt}; 
altRight * = {ie.rAlt}; 
amigaLeft * = {ie.lCommand}; 
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amigaRight * = {ie.rCommand}; 
amigaKeys * = amigaLeft+amigaRight; 

TYPE 

IntuiMessage * = STRUCT 
execMessage *: e.Message; 
dass *: LONGSET; (* IDCMPFIags *) 
code *: INTEGER; 
qualifier *: SET; (* ie.Qualifiers *) 
iAddress * : e.ADDRESS; 
mouseX* -.INTEGER; 
mouseY*: INTEGER; 
time *: Timer.TimeVal; 
idcmpWindow *: WindowRr; 
specialLink *: IntuiMessagePtr; 

END; 

CONST 

(* WindowFlags *) 
windowSizing * = 0; 
windowDrag * = 1; 
windowDepth * = 2; 
windowClose * = 3; 
sizeBRight * = 4; 
sizeBBottom * = 5; 
simpleRefresh * = 6; 
superBitMap * = 7; 
backDrop * = 8; 
reportMouse * = 9; 
gimmeZeroZero * = 10; 
borderless * = 11; 
activate * = 12; 
windowActive * = 13; 
inRequest * = 14; 
menuState * = 15; 
rmbTrap * = 16; 
noCareRefresh * = 17; 
windowRefresh * = 24; 
wbenchWindow * = 25; 
windowTicked * = 26; 

otherRefresh * = LONGSET{simpleRefresh,superBitMap}; 
superUnused * = LONGSET{18..23,27..31}; 

(* ScreenFlags *) 
wbenchScreen * = 0; 
showTitle * = 4; 
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beeping * = 5; 
customBitMap * = 6; 
screenBehind * = 7; 
screenQuiet * = 8; 

stdScreenHeight * = -1; 
customScreen * = {wbenchScreen..3}; 

TYPE 

NewWindow * = STRUCT 
leftEdge * : INTEGER; 
topEdge *: INTEGER; 
width *: INTEGER; 
height *: INTEGER; 
detailPen * : SHORTINT; 
blockPen *: SHORTINT; 
idcmpFlags * : LONGSET; (* IDCMPFIags *) 
flags * : LONGSET; (* WindowFlags *) 
firstGadget *: GadgetPtr; 
checkMark *: ImagePtr; 
title *: e.ADDRESS; 
screen *: ScreenPtr; 
bitMap * : g.BitMapPtr; 
minWidth *: INTEGER; 
minHeight *: INTEGER; 
maxWidth *: INTEGER; 
maxHeight*: INTEGER; 
type *: SET; (* ScreenFlags *) 

END; 

NewScreen * = STRUCT 
leftEdge *: INTEGER; 
topEdge *: INTEGER; 
width *: INTEGER; 
height *: INTEGER; 
depth *: INTEGER; 
detailPen * : SHORTINT; 
blockPen *: SHORTINT; 
viewModes *: SET; (* g.ViewModes *) 
type *: SET; (* ScreenFlags *) 
tont *: g.TextAttrPtr; 
defaultTitle *: e.ADDRESS; 
gadgets *: GadgetPtr; 
customBitMap *: g.BitMapPtr; 

END; 

Window * = STRUCT 
nextWindow *: WindowPtr; 
leftEdge * : INTEGER; 
topEdge * : INTEGER; 
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width * : INTEGER; 

height *: INTEGER; 

mouseY*: INTEGER; 

mouseX* : INTEGER; 

min Width *: INTEGER; 

minHeight *: INTEGER; 

maxWidth * : INTEGER; 

maxHeight *: INTEGER; 

flags *: LONGSET; (* WindowFlags *) 

menuStrip *: MenuPtr; 

title *: e.ADDRESS; 

firstRequest *: RequesterPtr; 

dmRequest *: RequesterPtr; 

reqCount * : INTEGER; 

wScreen * : ScreenPtr; 

rPort *: g.RastPortPtr; 

borderLeft * : SHORTINT; 

borderTop *: SHORTINT; 

borderRight *: SHORTINT; 

borderBottom *: SHORTINT; 

borderRPort *: g.RastPortPtr; 

firstGadget *: GadgetPtr; 

parent *: WindowPtr; 

descendant * : WindowPtr; 

pointer *: e.ADDRESS; 

ptrHeight *: SHORTINT; 

ptrWidth * : SHORTINT; 

xOffset * : SHORTINT; 

yOffset *: SHORTINT; 

idcmpFlags * : LONGSET; (* IDCMPFIags *) 

userPort *: e.MsgPortPtr; 

windowPort *: e.MsgPortPtr; 

messageKey *: IntuiMessagePtr; 

detailPen *: SHORTINT; 

blockPen *: SHORTINT; 

checkMark *: ImagePtr; 

screenTitle *: e.ADDRESS; 

gzzMouseX *: INTEGER; 

gzzMouseY * : INTEGER; 

gzzWidth *: INTEGER; 

gzzHeight *: INTEGER; 

extData * : e.ADDRESS; 

userData * : e.ADDRESS; 

wLayer*: g.LayerPtr; 

iFont *: g.TextFontPtr; 

END; 

Screen * = STRUCT 
nextScreen *: ScreenPtr; 


14/82 



Intuition 


firstWindow *: WindowPtr; 
leftEdge * : INTEGER; 
topEdge *: INTEGER; 
width *: INTEGER; 
height*: INTEGER; 
mouseY* : INTEGER; 
mouseX* : INTEGER; 
flags * : SET; (* ScreenFlags *) 
title * : e.ADDRESS; 
defaultTitle *: e.ADDRESS; 
barHeight * : SHORTINT; 
barVBorder *: SHORTINT; 
barHBorder *: SHORTINT; 
menuVBorder * : SHORTINT; 
menuHBorder *: SHORTINT; 
wBorTop * : SHORTINT; 
wBorLeft *: SHORTINT; 
wBorRight * : SHORTINT; 
wBorBottom * : SHORTINT; 
font * : g.TextAttrPtr; 
viewPort *: g.ViewPort; 
rastPort *: g.RastPort; 
bitMap *: g.BitMap; 
layerlnfo *: g.Layerlnfo; 
firstGadget * : GadgetPtr; 
detailPen * : SHORTINT; 
blockPen * : SHORTINT; 
saveColorO *: INTEGER; 
barLayer *: g.LayerPtr; 
extData *: e.ADDRESS; 
userData *: e.ADDRESS; 

END; 

CONST 

filenameSize * = 30; 
pointerSize * = (1+16+1)*2; 
topazEighty * = 8; 
topazSixty * = 9; 

(* Preferences.printerType *) 

customName *= 0; alphaPIOI *= 1; brother15XL *= 2; cbmMpslOOO *= 3; 
diab630 *= 4; diabAdvD25 *= 5; diabC150 *= 6; epson *= 7; 
epsonJX80 *= 8; okimate20 *= 9; qumeLP20 *= 10; hpLaserjet *=11; 
hpLaserjetPlus * = 12; 

CONST 

(* PrinterPort *) 
parallelPrinter * = 0; 
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serialPrinter * = 1; 

(* SerParShks *) 
shakeXon * = 0; 
shakeRts * = 1; 
shakeNone * = 2; 
parityNone * = 4; 
parityEven * = 5; 
parityOdd * = 6; 

TYPE 

Preferences * = STRUCT 
fontHeight *: BYTE; 

printerPort *: SHORTINT; (* PrinterPort *) 

baudRate *: INTEGER; ( 

keyRptSpeed *: Timer.TimeVa!; 

keyRptDelay *: Timer. Time Val; 

doubleClick* : Timer.TimeVal; 

pointerMatrix *: ARRAY pointerSize OF INTEGER; 

xOffset * : SHORTINT; 

yOffset * : SHORTINT; 

color17*: INTEGER; 

colorlö * : INTEGER; 

color19*: INTEGER; 

pointerTicks * : INTEGER; 

colorO *: INTEGER; 

colorl *: INTEGER; 

color2 *: INTEGER; 

color3 *: INTEGER; 

viewXOffset * : SHORTINT; 

viewYOffset *: SHORTINT; 

viewInitX *: INTEGER; 

viewInitY *: INTEGER; / 

enableCLI *: INTEGER; (* BOOLEAN *) 1 

printerType *: INTEGER; 

printerFilename *: ARRAY filenameSize OF CHAR; 

printPitch *: INTEGER; 

printQuality *: INTEGER; 

printSpacing *: INTEGER; 

printLeftMargin *: INTEGER; 

printRightMargin *: INTEGER; 

printlmage *: INTEGER; 

printAspect *: INTEGER; 

printShade *: INTEGER; 

printThreshold *: INTEGER; 

paperSize * : INTEGER; ( 

paperLength * : INTEGER; 
paperType *: INTEGER; 
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serRWBits *: BYTE; 
serStopBuf *: BYTE; 

serParShk *: SHORTSET; (* SerParShks *) 
laceWB *: BOOLEAN; 

workName *: ARRAY filenameSize OF CH AR; 
padding *: ARRAY 16 OF SHORTINT; 

END; 

CONST 
baudllO * = 0; 
baud300 * = 1; 
baud1200 * = 2; 
baud2400 * = 3; 
baud4800 * = 4; 
baud9600 * = 5; 
baud19200 * = 6; 
baudMidi * = 7; 
pica * = 0H; 
elite * = 0400H; 
fine * = 0800H; 
draft * = 0H; 
letter * = 0100H; 
sixLPI * = 0H; 
eightLPI * = 0200H; 
imagePositive * = 0; 
imageNegative * = 1; 
aspectHoriz * = 0; 
aspectVert * = 1; 
shadeBW * = 0; 
shadeGreyscale * = 1; 
shadeColor * = 2; 
usLetter * = 0H; 
usLegal * = 01 OH; 
nTractor * = 020H; 
wTractor * = 030H; 
custom * = 040H; 
fanfold * = 0H; 
single * = 080H; 
readBits * = OFOH; 
writeBits * = OFH; 
stopBits * = OFOH; 
bufSizeBits * = OFH; 
buf512 * = 0; 
buf1024* = 1; 
buf2048 * = 2; 
buf4096 * = 3; 
buf8000 * = 4; 
buf16000 * = 5; 
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TYPE 

Remember * = STRUCT 
nextRemember *: RememberPtr; 
rememberSize *: LONGINT; 
memory * : e.ADDRESS; 

END; 

CONST 

deadendAlert * = MIN(LONGINT); recoveryAlert * = 0; 

(* DisplayMode *) 
hiresPick * = 0; 
lowresPick * = 1; 
dModeCount * = 2; 

eventMax* = 10; 

(* Res *) 

hiresGadget * = 0; 
lowresGadget * = 1; 

resCount * = 2; 

(* Gadgets *) 
upFrontGadget * = 0; 
downBackGadget * = 1; 
sizeGadget * = 2; 
closeGadget * = 3; 
dragGadget * = 4; 
slIpFrontGadget * = 5; 
sDownBackGadget * = 6; 
sDragGadget * = 7; 

gadgetCount * = 8; 

(* ILocks *) 
iStateLock * = 0; 
layerlnfoLock * = 1; 
gadgetsLock * = 2; 
layerRomLock * = 3; 
viewLock * = 4; 
iBaseLock * = 5; 
rpLock * = 6; 

numILocks * = 7; 

TYPE 
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FatlntuiMessage * = STRUCT 
intuiMessage *: IntuiMessage; 
prevKeys *: LONGINT; 

END; 

IBox * = STRUCT 
left * : INTEGER; 
top * : INTEGER; 
width *: INTEGER; 
height *: INTEGER; 

END; 

Point * = STRUCT 
x *: INTEGER; 
y *: INTEGER; 

END; 

PenPair * = STRUCT 
detailPen * : SHORTINT; 
blockPen *: SHORTINT; 

END; 

GListEnv * = STRUCT 
screen *: ScreenPtr; 
window * : WindowPtr; 
requester *: RequesterPtr; 
rastPort *: g.RastPortPtr; 
layer* :g.LayerPtr; 
gzzLayer *: g.LayerPtr; 
pens *: PenPair; 
domain *: IBox; 
gzzDims *: IBox; 

END; 

GListEnvPtr * = POINTER TO GListEnv; 

Gadgetlnfo * = STRUCT 
environ *: GListEnvPtr; 
gadget * : GadgetPtr; 
box * : IBox; 

Container*: IBox; 
layer *: g.LayerPtr; 
newKnob * : IBox; 

END; 

CONST 

numlEvents * = 4; 

TYPE 

IntuitionBase * = STRUCT 
libNode *: e.Library; 
viewLord *: g.View; 
activeWindow * : WindowPtr; 
activeScreen *: ScreenPtr; 
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firstScreen * : ScreenPtr; 

flags * : LONGSET; 

mouseY* : INTEGER; 

mouseX * : INTEGER; 

time * :TimerTimeVal; 

minXMouse * : INTEGER; 

maxXMouse *: INTEGER; 

minYMouse *: INTEGER; 

maxYMouse *: INTEGER; 

startSecs * : LONGINT; 

startMicros *: LONGINT; 

sysßase *: e.ADDRESS; 

gfxBase *: g.GfxBasePtr; 

layersBase *: e.ADDRESS; 

consoleDevice * : e.ADDRESS; 

aPointer *: e.ADDRESS; 

aPtrHeight * : BYTE; 

aPtrWidth * : SHORTINT; 

aXOffset * : SHORTINT; 

aYOffset * : SHORTINT; 

menuDrawn *: INTEGER; 

menuSelected * : INTEGER; 

optionList * : INTEGER; 

menuRPort *: g.RastPort; 

menuTmpRas *: g.TmpRas; 

itemCRect *: g.ClipRect; 

subCRect * : g.ClipRect; 

iBitMap *: g.BitMap; 

sBitMap * : g.BitMap; 

inputRequest * : e.lOStdReq; 

inputlnteraipt * : e.Interrupt; 

eventKey *: RememberPtr; 

iEvents *: e.ADDRESS; 

eventCount *: INTEGER; 

ieBuffer * : ARRAY numlEvents OF ie.InputEvent; 

activeGadget *: GadgetPtr; 

activePlnfo *: ProplnfoPtr; 

activelmage *: ImagePtr; 

gadgetEnv *: GListEnv; 

gadgetlnfo *: Gadgetlnfo; 

knobOffset *: Point; 

getOKWindow * : WindowPtr; 

getOKMessage *: IntuiMessagePtr; 

setWExcept *: INTEGER; 

gadgetReturn *: INTEGER; 

stateReturn *: INTEGER; 

rp *: g.RastPortPtr; 
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iTmpRas *: g.TmpRas; 

oldClipRegion *: g.RegionPtr; 

oldScroll *: Point; 

iFrame *: IBox; 

hthick *: INTEGER; 

vthick *: INTEGER; 

frameChange *: PROCEDUREQ; 

sizeDrag *: PROCEDUREQ; 

firstPt *: Point; 

oldR *: Point; 


sysGadgets *: ARRAY resCount, gadgetCount OF GadgetPtr; 

checklmage *: ARRAY resCount OF ImagePtr; 

amigalcon *: ARRAY resCount OF ImageRr; 

aPattern *: ARRAY 8 OF INTEGER; 

bPattern *: ARRAY 4 OF INTEGER; 

iPointer * : e.ADDRESS; 

iPtrHeight *: BYTE; 

iPtrWidth *: SHORTINT; 

iXOffset *: SHORTINT; 

iYOffset *: SHORTINT; 

doubleSeconds *: LONGINT; 

doubleMicros * : LONGINT; 

wBorLeft *, 

wBorTop *, 

wBorRight *, 

wBorBottom *, 

barVBorder *, 

barHBorder *, 

menuVBorder *, 

menuHBorder *: ARRAY dModeCount OF SHORTINT; 

colorO *: INTEGER; 

colorl *: INTEGER; 

color2 *: INTEGER; 

color3 *: INTEGER; 

color17*: INTEGER; 

color18*: INTEGER; 

color19*: INTEGER; 

sysFont *: g.TextAttr; 

preferences *: PreferencesPtr; 

echoes *: e.ADDRESS; 

viewInitX *: INTEGER; 

viewInitY *: INTEGER; 

cursorDX* : INTEGER; 

cursorDY * : INTEGER; 


keyMap *: KeyMap.KeyMapRr; 
mouseYMinimum *: INTEGER; 
errorX *: INTEGER 
errorY *: INTEGER 


14/89 







14. Die Amiga-Interface-Module 


ioExcess * : Timer.lOTimer; 
holdMinYMouse * : INTEGER; 
wbPort *: e.MsgPortPtr; 
fnkuhdPort *: e.MsgPortPtr; 
wbMessage *: IntuiMessage; 
hitScreen *: ScreenPtr; 
simpleSprite *: g.SimpleSpritePtr; 
attachedSSprite *: g.SimpleSpriteRr; 
gotSpritel * : BOOLEAN; 
semaphoreList *: e.List; 

jSemaphore *: ARRAY numILocks OF e.SignalSemaphore; 
maxDispiayHeight *: INTEGER; 
maxDisplayRow *: INTEGER; 
reserved * : ARRAY 8 OF LONGINT; 

END; 

IntuitionBasePtr * = POINTER TO IntuitionBase; 


VAR 

int *: IntuitionBasePtr; 


(* Boolesche Parameter müssen 4 Bytes lang sein: *) 
TYPE 

LONGBOOL * = LONGINT; 

CONST 
LTRUE * . -1; 

LFALSE * = 0; 


( 


) 


(*-— intuition.library: -*) 


PROCEDURE ActivateGadget * {int,-462}(gadget{8}:GadgetRr; 

wi ndow{9}: Wi ndowPtr; 
requester{10}:RequesterPtr):BOOLEAN; 
PROCEDURE ActivateWindow * {int,-450}(window{8}:WindowPtr); 
PROCEDURE AddGadget * {int,- 42}(window{8}:WindowRr; 

gadget{9} :GadgetPtr; 
position{0}:LONGINT):INTEGER; 
PROCEDURE AddGList * {int,-438}(window{8}:WindowRr; 

gadget{9}:GadgetPtr; 
position{0}:LONGINT; 
numGad{1 }:LONGINT; 
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requester{10}:RequesterRr):INTEGER; 
PROCEDURE AllocRemember * {int,-396}( 

VAR rememberKey{8}:e.ADDRESS; 
size{0}:LONGINT; 

flags{1}:LONGSET (* e.MemReqs *)):e.ADDRESS; 
PROCEDURE AlohaWorkbench * {int,-402}(wbPort{8}:e.MsgPortRr); 
PROCEDURE AutoRequest * {int,-348}( 

window{8} :WindowRr; 
bodyText{9}:lntuiTextRr; 
positiveText{10}:lntuiTextRr; 
negativeText{11} :lntuiTextRr; 
positiveFlags{0} :LONGSET; (* IDCMPFIags *) 
negativeFlags{1 }:LONGSET; (* IDCMPFIags *) 
width{2} :LONGINT; 
height{3}:LONGINT):BOOLEAN; 

PROCEDURE BeginRefresh * {int,-354}(window{8}:WindowPtr); 

PROCEDURE BuildSysRequest * {int,-360}( 
window{8}:WindowPtr; 
bodyText{9}:lntuiTextRr; 
positiveText{10}:lntuiTextRr; 
negativeText{11}:lntuiTextRr; 
idcmpFlags{0}:LONGSET; (* IDCMPFIags *) 
width{1}:LONGINT; 
height{2}:LONGINT):WindowRr; 

PROCEDURE ClearDMRequest * {int,- 48}(window{8}:WindowRr):BOOLEAN; 
PROCEDURE ClearMenuStrip * {int,- 54}(window{8}:WindowPtr); 
PROCEDURE ClearPointer * {int,- 60}(window{8}:WindowPtr); 

PROCEDURE CloseScreen * {int,- 66}(screen{8}:ScreenRr); 

PROCEDURE CloseWindow * {int,- 72}(window{8}:WindowRr); 

PROCEDURE CloseWorkBench * {int,- 78}():BOOLEAN; 

PROCEDURE CurrentTime * {int,- 84}(VAR seconds{8}: LONGINT; 

VAR micros {9}: LONGINT); 

PROCEDURE DisplayAlert * {int,- 90}(alertNumber{0}:LONGINT; 

string{8}:ARRAY OF CHAR; 
height{1}:LONGINT):BOOLEAN; 

PROCEDURE DisplayBeep * {int,- 96}(screen{8}:ScreenRr); 

PROCEDURE Doubleclick * {int,-102}(startSecs{0}:LONGINT; 

startMicros{1}:LONGINT; 
currentSecs{2}:LONGINT; 
currentMicros{3}:LONGINT):BOOLEAN; 
PROCEDURE DrawBorder * {int,-108}(rastPort{8}:g.RastPortRr; 

border{9}:BorderRr; 
leftOffset{0} :LONG INT; 
topOffset{1 }:LONGINT); 

PROCEDURE Drawlmage * {int,-114}(rastPort{8}:g.RastPortRr; 
image{9}:lmagePtr; 
leftOff set{0} :LONG I NT; 
topOffset{1}:LONGINT); 
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PROCEDURE EndRefresh * {int,-366}(window{8}:WindowRr; 

complete{0} :LONGBOOL); 

PROCEDURE EndRequest * {int,-120}(requester{8}:RequesterRr; 

wi ndow{9}: WindowRr); 

PROCEDURE FreeRemember * {int,-408}(rememberKey{8}:e.ADDRESS; 

real!yForget{0} :LONGBOOL); 

PROCEDURE FreeSysRequest * {int,-372}(window{8}:WindowPtr); 

PROCEDURE GetDefPrefs * {int,-126}(prefBuffer{8}:PreferencesRr; 
size{0}:LONGINT); 

PROCEDURE GetPrefs * {int,-132}(prefBuffer{8}:PreferencesPtr; 
size{0}: LONGI NT); 

PROCEDURE GetScreenData * {int,-426}(buffer{8}:e.ADDRESS; 

size{0}:LONGINT; 
type{1}:SET; (* Screen Flags *) 
screen{9} :ScreenRr) :BOOLE AN; 

PROCEDURE InitRequester * {int,-138}(requester{8}:RequesterPtr); 

PROCEDURE IntuiTextLength * {int,-330}(iText{8}:lntuiTextRr) .INTEGER; 

PROCEDURE Intuition * {int,- 36}(inputEvent{8}:ie.lnputEventPtr); 

PROCEDURE ItemAddress * {int,-144}(menuStrip{8}:MenuRr; 

menuNumber{0}:LONGINT):MenultemPtr; 

PROCEDURE LocklBase * {int,-414}(lockNumber{0}:LONGINT):LONGINT; 

PROCEDURE MakeScreen * {int,-378}(screen{8}:ScreenPtr); 

PROCEDURE ModifylDCMP * {int,-150}(window{8}:WindowRr; 

idcmpFlags{0}:LONGSET {* IDCMPFIags *)); 

PROCEDURE ModifyProp * {int,-156}(gadget{8}:GadgetRr; 

window{9}:WindowRr; 
requesterjl0}:RequesterRr; 
flags{0}:SET; (* ProplnfoFlags *) 
horizPot{1}:LONGINT; 
vertPot{2} :LONG INT; 
horizBody{3} :LONGINT; 
vertBody{4}:LONGINT); 

PROCEDURE MoveScreen * {int,-162}(screen{8}:ScreenPtr; 

deltaX{0}:LONGINT; 

deltaY{1}:LONGINT); 

PROCEDURE MoveWindow * {int,-168}(window{8}-.WindowRr; 

deltaX{0}:LONGINT; 

deltaY{1}:LONGINT); 

PROCEDURE NewModifyProp * {int,-468}(gadget{8}:GadgetPtr; 

window{9} :Wi ndowRr; 
requesterjl 0} :RequesterPtr; 
flags{0}:SET; (* ProplnfoFlags *) 
horizPot{1}:LONGINT; 
vertPot{2}:LONGINT; 
horizBody{3} :LONG INT; 
vertBody{4}:LONGINT; 
numGad{5}:LONGINT); 

PROCEDURE OffGadget * {int,-174}(gadget{8}:GadgetRr; 
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window{9} :WindowPtr; 
requester{10}:RequesterRr); 

PROCEDURE OffMenu * {int,-180}(window{8}:WindowPtr; 

menuNumber{0}:LONGINT); 

PROCEDURE OnGadget * {int,-186}(gadget{8}:GadgetRr; 

window{9} :WindowRr; 
requester{10}:RequesterRr); 

PROCEDURE OnMenu * {int,-192}(window{8}:WindowPtr; 

menuNumber{0}:LONGINT); 

PROCEDURE Openlntuition * {int,- 30}():lntuitionBaseRr; 

PROCEDURE OpenScreen * {int,-198}(VAR newScreen{8}:NewScreen):ScreenRr; 

PROCEDURE OpenWindow * {int,-204}( 

VAR newWindow{8}:NewWindow):WindowRr; 

PROCEDURE OpenWorkBench * {int,-210}():ScreenRr; 

PROCEDURE PrintIText * {int,-216}(rastPort{8}:g.RastPortRr; 

iText{9}:lntuiTextRr; 
leftOffset{0}:LONGINT; 
topOffset{1 }:LONGINT); 

PROCEDURE RefreshGadgets * {int,-222}(gadgets{8}:GadgetRr; 

window{9}: Wi ndowRr; 
requester{10} :RequesterPtr); 

PROCEDURE RefreshGList * {int,-432)(gadgets{8}:GadgetRr; 

wi ndow{9}:Wi ndowRr; 
requesterjl 0} :RequesterRr; 
numGad{0}:LONGINT); 

PROCEDURE RefreshWindowFrame * {int,-456}(window{8}:WindowRr); 

PROCEDURE RemakeDisplay * {int,-384}(); 

PROCEDURE RemoveGadget * {int,-228}(window{8}:WindowRr; 

gadget{9}:GadgetRr):INTEGER; 

PROCEDURE RemoveGList * {int,-444}(window{8}:WindowPtr; 

gadget{9} :GadgetPtr; 
numgad{0}:LONGINT):INTEGER; 

PROCEDURE ReportMouse * {int,-234}(window{8}:WindowRr; 

boolean{0}:LONGBOOL); 

PROCEDURE Request * {int,-240}(requester{8}:RequesterPtr; 

window{9} :Wi ndowRr) :BOOLE AN; 

PROCEDURE RethinkDisplay * {int,-390}(); 

PROCEDURE ScreenToBack * {int,-246}(screen{8}:ScreenRr); 

PROCEDURE ScreenToFront * {int,-252}(screen{8}:ScreenPtr); 

PROCEDURE SetDMRequest * {int,-258}(window{8}:WindowRr; 

dm Requester{9} :RequesterPtr) :BOOLE AN; 

PROCEDURE SetMenuStrip * {int,-264}(window{8}:WindowPtr; 

menu{9} :MenuRr) :BOOLEAN; 

PROCEDURE SetPointer* {int,-270}(window{8}:WindowRr; 

pointer{9} :e. ADD RESS; 
height{0}:LONGINT; 
width{1 }:LONGINT; 
xOffset{2} :LONG INT; 
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yOffset{3}:LONGINT); 

PROCEDURE SetPrefs * {int,-324}(prefBuffer{8}:PreferencesRr; 
Size{0}:LONGINT; 

I nf orm{ 1}: LONG BOOL); 

PROCEDURE SetWindowTitles * {int,-276}(window{8}:WindowRr; 

windowTitle{9}:e. ADDRESS; 
screenTitle{10}:e.ADDRESS); 

PROCEDURE ShowTitle * {int,-282}(screen{8}:ScreenPtr; 

showlt{0}:LONGBOOL); 

PROCEDURE SizeWindow * {int r 288}(window{8}:WindowPtr; 

deltaX{0}:LONGINT; 

deltaY{1}:LONGINT); 

PROCEDURE UnlocklBase * {int,-420}(lock{8}:LONGINT); 

PROCEDURE ViewAddress * {int,-294}():g.ViewPtr; 

PROCEDURE ViewPortAddress * {int,-300}(window{8}:WindowRr):g.ViewPortRr; 
PROCEDURE WBenchToBack * {int,-336}():BOOLEAN; 

PROCEDURE WBenchToFront * {int,-342}():BOOLEAN; 

PROCEDURE WindowLimits * {int,-318}(window{8}:WindowPtr; 

minWidth{0}:LONGINT; 

minHeight{1}:LONGINT; 

maxWidth{2}:LONGINT; 

maxHeight{3}:LONGINT):BOOLEAN; 

PROCEDURE WindowToBack * {int,-306}(window{8}:WindowPtr); 

PROCEDURE WindowToFront * {int,-312}(window{8}:WindowRr); 

(* $OvflChk- $RangeChk- $StackChk- $NilChk- $ReturnChk- $CaseChk- *) 


) 


(*- Menu Macros: -*) 


PROCEDURE MenuNum*(n{0}: INTEGER): INTEGER; 

BEGIN RETURN s.VAL(INTEGER, s.VAL(SET.n) * {0..4}) END MenuNum; 

PROCEDURE ltemNum*(n{0}: INTEGER): INTEGER; 

BEGIN RETURN s.VAL(INTEGER,sXSH(s.VAL(SET,n),- 5) * {0..5}) END ItemNum; 
PROCEDURE SubNum* (n{0}: INTEGER): INTEGER; 

BEGIN RETURN s.VAL(INTEGER,s.LSH(s.VAL(SET,n),-11) * {0..4}) END SubNum; 


PROCEDURE ShiftMenu*(n{0}: INTEGER): INTEGER; 

BEGIN RETURN s.VAL(INTEGER, s.VAL(SET,n) * {0..4} ) END ShiftMenu; 

PROCEDURE Shiftltem*(n{0}: INTEGER): INTEGER; 
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BEGIN RETURN s.VAL(INTEGER,s.LSH(s.VAL(SET,n) * {0..5}, 5)) END Shiftltem; 
PROCEDURE ShiftSub *(n{0}: INTEGER): INTEGER; 

BEGIN RETURN s.VAL(INTEGER,s.LSH(s.VAL(SET,n) * {0..4J.11)) END ShiftSub; 


PROCEDURE MenuNumber*(menu, item, sub: INTEGER): INTEGER; 
BEGIN RETURN ShiftMenu(menu) + Shiftltem(item) + ShiftSub(sub) 
END MenuNumber; 


(*- Special: -*) 

(* um BOOLEAN-Werte in LONGBOOL umzuwandeln, um sie als bool’schen 
Parameter den Intuition-Prozeduren zu übergeben: *) 

PROCEDURE BoolToLong*(b: BOOLEAN): LONGBOOL; 

BEGIN IF bTHEN RETURN LTRUE 

ELSE RETURN LFALSE END 
END BoolToLong; 

(* Umwandlung von pseudo unsigned integers (wie z.B. die INTEGERs in 
Proplnfo) in LONGINTs: *) 

PROCEDURE UlntToLong*(i: INTEGER): LONGINT; 

BEGIN 

IFkOTHEN RETURN i+IOOOOH 
ELSE RETURN i END; 

END UlntToLong; 

PROCEDURE LongToUInt*(I: LONGINT): INTEGER; 

BEGIN 

(* $RangeChk- Trick: einfach unteres Wort zurückgeben *) 

RETURN SHORT(I) 

(* $RangeChk= *) 

END LongToUInt; 

r *) 

BEGIN 

int := s.VAL(lntuitionBaseRr,e.OpenLibrary("intuition.library",33)); 

IF int = NIL THEN HALT(0) END; 

CLOSE 

IF int#NILTHEN e.CloseLibrary(s.VAL(e.LibraryRr,int)) END; 

END Intuition. 


14/95 






14. Die Amiga-Interface-Module 


KeyBoard: 

MODULE Keyboard; (* $lmplementation- *) 
IMPORT e:Exec; 

CONST 

keyboardName * = "keyboard.device"; 
readEvent * = e.nonstd+0; 
readMatrix * = e.nonstd+1; 
addResetHandler * = e.nonstd+2; 
remResetHandler * = e.nonstd+3; 
resetHandlerDone * = e.nonstd+4; 

END Keyboard. 
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KeyMap: 


MODULE KeyMap; (* $lmplementation- *) 

IMPORT e: Exec, 
s: SYSTEM; 

CONST 

(* KeyMapTypes *) 
shift * = 0; 
alt * = 1; 
control * = 2; 
downup * = 3; 
dead * = 5; 

String * = 6; 
nop * = 7; 

noQual * = SHORTSETß; 

vanilla * = SHORTSET{shift,alt,control}; 

(* DeadPrefixBytes *) 
dpbMod * = 0; 
dpbDead * = 3; 

dp2dlndexMask * = OFH; 
dp2dFacShift * = 4; 
maxKeys * = 64; 

TYPE 

BitTable * = ARRAY maxKeys DIV (8*s.SIZE(LONGSET)) OF LONGSET; 
BitTablePtr * = POINTER TO BitTable; 

Keyinfo * = ARRAY 4 OF CHAR; 

KeylnfoAdr * = e.ADDRESS; 

Types * = ARRAY maxKeys OF SHORTSET; (* KeyMapTypes *) 

TypesPtr * = POINTER TO Types; 

Info * = ARRAY maxKeys OF Keyinfo; 
lnfoPtr* = POINTER TO Info; 

KeyMap * = STRUCT 
loKeyMapTypes *: TypesPtr; 
loKeyMap *: InfoPtr; 
loCapsable * : BitTablePtr; 
loRepeatable *: BitTablePtr; 
hiKeyMapTypes * : TypesPtr; 
hiKeyMap *: InfoPtr; 
hiCapsable *: BitTablePtr; 
hiRepeatable * : BitTablePtr; 

END; 
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KeyMapPtr * = POINTER TO KeyMap; 

KeyMapNode * = STRUCT 
node *: e.Node; 
keyMap *: KeyMap; 

END; 

KeyMapResource * = STRUCT 
node *: e.Node; 
list *: e.List; 

END; 

END KeyMap. 
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Layers: 


MODULE Layers; 

IMPORT g: Graphics, 
e: Exec, 
s: SYSTEM; 


VAR 

base *: e.LibraryPtr; 

PROCEDURE BeginUpdate* {base, -78}(l{8}:g.LayerRr):BOOLEAN; 
PROCEDÜRE BehindLayer* {base, -54}(l{9}:g. LayerPtr) :BOOLEAN; 
PROCEDURE CreateBehindLayer* {base, -42}(li{8}:g.LayerlnfoPtr; 

bm{9}:g.BitMapPtr; 
xO{0}:LONGINT; 
yO{1}:LONGINT; 
x1{2}:LONGINT; 
y1{3}:LONGINT; 
flags{4}:SET; (* g.LayerFlags *) 
bm2{10}:g.BitMapRr):g.LayerPtr; 
PROCEDURE CreateUpfrontLayer* {base, -36}(li{8}:g.LayerlnfoRr; 

bm{9}:g.BitMapPtr; 
xO{0}:LONGINT; 
yO{1}:LONGINT; 
x1{2}:LONGINT; 
y1{3}:LONGINT; 
flags{4}:SET; (* g.LayerFlags *) 
bm2{ 10} :g. BitMapPtr) :g. LayerPtr; 
PROCEDURE DeleteLayer* {base, -90}(!{9}:g.LayerPtr) :BOOLEAN; 
PROCEDURE DisposeLayerlnfo* {base,-150}(li{8}:g.LayerlnfoRr); 
PROCEDURE EndUpdate* {base, -84}(l{8}:g. LayerPtr; flag{0}:BOOLEAN); 
PROCEDURE FattenLayerlnfo* {base,-156}(li{8}:g.LayerlnfoPtr); 
PROCEDURE InitLayers* {base, -30}(li{8}:g.LayerlnfoRr); 

PROCEDURE InstalIClipRegion* {base,-174}(l{8}:g.LayerRr; 

region{9}:g.RegionRr):g.RegionPtr; 
PROCEDURE LockLayer* {base, -96}(l{9}:g.LayerPtr); 

PROCEDURE LockLayerlnfo* {base,-120}(li{8}:g.LayerlnfoRr); 

PROCEDURE LockLayers* {base,-108}(li{8}:g.LayerlnfoPtr); 

PROCEDURE MoveLayer* {base, -60}(l{9}:g. LayerPtr; 

dx{0},dy{1} :LONGINT) :BOOLEAN; 

PROCEDURE MoveLayerlnFrontOf* {base,-168}( 

l{8} ,target{9} :g. LayerPtr): BOOLE AN; 

PROCEDURE NewLayerlnfo* {base,-144}():g.LayerlnfoPtr; 

PROCEDURE ScrollLayer* {base, -72}(l{9}:g.LayerPtr; dx{0},dy{1}:LONGINT); 
PROCEDURE SizeLayer* {base, -66}(l{9}:g.LayerRr; 

dx{0} ,dy{ 1} :LONG INT) :BOOLEAN; 
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PROCEDURE SwapBitsRastPortClipRect* {base,-126}(rp{8}:g.RastPortRr; 

cr{9}:g.ClipRectPtr); 

PROCEDURE ThinLayerlnfo* {base,-162}(li{8}:g.LayerlnfoRr); 
PROCEDURE UnlockLayer* {base,-102}(l{8}:g.LayerRr); 

PROCEDURE UnlockLayerlnfo* {base,-138}(li{8}:g.LayerlnfoPtr); 
PROCEDURE UnlockLayers* {base,-114}(!i{8}:g.LayerlnfoPtr); 
PROCEDURE UpfrontLayer* {base, -48}(!{9}:g.LayerRr):BOOLEAN; 
PROCEDURE WhichLayer* {base,-132}(li{8}:g.LayerlnfoRr; 

x{0} ,y{ 1} :LONG I NT) :g. LayerPtr; 

(* $OvflChk- $RangeChk- $StackChk- $NilChk- $ReturnChk- $CaseChk- *) 
BEGIN 

base := e.OpenLibrary( M layers.library",33); 

IF base=NIL THEN HALT(O) END; 

CLOSE 

IF base#NILTHEN e.CloseLibrary(base) END; 

END Layers. 


14/100 



MathFFP 


MathFFP: 

MODULE MathFFP; 


IMPORT e:Exec, 

I: Intuition, 
s: SYSTEM; 

CONST 

MathFFPName * = "mathffp.library"; 

VAR 

base*: e.LibraryRr; 

PROCEDUREFix * {base,-30}(x{0} :REAL ):LONGINT; 

PROCEDURE Fit * {base,-36}(x{0} :LONGINT):REAL; 

PROCEDURE Cmp * {base,-42}(x{1},y{0}:REAL ):LONGINT; 
PROCEDURE Tst * {base,-48}(x{1} :REAL ):LONGINT; 

PROCEDURE Abs * {base,-54}(x{0} :REAL ):REAL; 

PROCEDURE Neg * {base,-60}(x{0} :REAL ):REAL; 

PROCEDURE Add * {base,-66}(x{0},y{1}:REAL ):REAL; 

PROCEDURE Sub * {base,-72}(x{0},y{1}:REAL );REAL; 

PROCEDURE Mul * {base,-78}(x{0},y{1}:REAL ):REAL; 

PROCEDURE Div * {base,-84}(x{0},y{1}:REAL ):REAL; 

PROCEDURE Floor* {base,-90}(x{0} :REAL );REAL; 

PROCEDURE Ceil * {base,-96}(x{0} :REAL ):REAL; 

(* $OvflChk- $RangeChk- $StackChk- $NilChk- $ReturnChk- $CaseChk- *) 

BEGIN 

base := e.OpenLibrary(MathFFPName,33); 

IF base=NILTHEN HALT(O) END; 

CLOSE 

IF base#NILTHEN e.CloseLibrary(base) END; 

END MathFFP. 
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MathlEEEDoubBas: 


MODULE MathlEEEDoubBas; 

IMPORT e: Exec, 

I: Intuition, 
r: Resources, 
s: SYSTEM; 

CONST 

MathlEEEDoubBasName * = "mathieeedoubbas.library"; 

TYPE 

MathlEEEBase-STRUCT 
iibNode:e.Library; 
f!ags:BYTE; 
reservedl :BYTE; 
m68881 :e.ADDRESS; 
sysLib:e.ADDRESS; 
segListie.BPTR; 

resourcerr.MathlEEEResourcePtr; 
taskOpenLib:e.ADDRESS; 
taskCloseLib:e. ADDRESS; 

END; 

VAR 

base*: e. LibraryRr; 

PROCEDURE Fix* {base,- 30}(x{0} :LONGREAL):LONGINT; 
PROCEDURE Fit* {base,- 36}{x{0} :LONGINT ):LONGREAL; 
PROCEDURE Cmp* {base,- 42}(x{0},y{2}:LONGREAL):LONGINT; 
PROCEDURE Tst* {base,- 48}(x{0} :LONGREAL):LONGINT; 

PROCEDURE Abs* {base,- 54}(x{0} :LONGREAL):LONGREAL; 
PROCEDURE Neg* {base,- 60}(x{0} :LONGREAL):LONGREAL; 

PROCEDURE Add* {base,- 66}(x{0},y{2}:LONGREAL):LONGREAL; 
PROCEDURE Sub* {base,- 72}(x{0},y{2}:LONGREAL):LONGREAL; 
PROCEDURE Mul* {base,- 78}(x{0},y{2}:LONGREAL):LONGREAL; 
PROCEDURE Div* {base,- 84}(x{0},y{2}:LONGREAL):LONGREAL; 
PROCEDURE Floor*{base,- 90}(x{0} :LONGREAL):LONGREAL; 
PROCEDURE Ceil* {base,- 96}(x{0} :LONGREAL):LONGREAL; 

{* $OvflChk- $RangeChk- $StackChk- $NilChk- $ReturnChk- $CaseChk- *) 

BEGIN 

base := e.OpenLibrary(MathlEEEDoubBasName,33); 

IF base=NILTHEN 
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s.SETREG(0,I.DisplayAlert(0, 

H x00x64x14missing mathieeedoubnas. library",50)); 
HALT(O) 

END; 

CLOSE 


IF base#NILTHEN e.CloseLibrary(base) END; 
END MathlEEEDoubBas. 
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MathlEEEDoubTrans: 


MODULE MathlEEEDoubTrans; 

IMPORT e:Exec, 

I: Intuition, 
s: SYSTEM; 

CONST name * = '’mathieeedoubtrans.library"; 

VAR base *: e.LibraryPtr; 

PROCEDURE Acos * {base,-120}(x{0}:LONGREAL):LONGREAL; 
PROCEDURE Asin * {base,-114}(x{0}:LONGREAL):LONGREAL; 
PROCEDURE Atan * {base,- 30}(x{0}:LONGREAL):LONGREAL; 
PROCEDURE Cos * {base,- 42}(x{0}:LONGREAL):LONGREAL; 
PROCEDURE Cosh * {base,- 66}(x{0}:LONGREAL):LONGREAL; 
PROCEDURE Exp * {base,- 78}(x{0}:LONGREAL):LONGREAL; 
PROCEDURE Fieee * {base,-108}(x{0}:REAL ):LONGREAL; 
PROCEDURE Log * {base,- 84}(x{0}:LONGREAL):LONGREAL; 
PROCEDURE LoglO * {base,-126}(x{0}:LONGREAL):LONGREAL; 
PROCEDURE Pow * {base,- 90}(exp{0},x{2}:LONGREAL):LONGREAL; 
PROCEDURE Sin * {base,- 36}(x{0}:LONGREAL):LONGREAL; 
PROCEDURE Sincos* {base,- 54}(x{0}:LONGREAL; 

VAR cos{8} :LONG REAL) :LONGREAL; 
PROCEDURE Sinh * {base,- 60}(x{0} :LONG REAL) :LONG RE AL; 
PROCEDURE Sqrt * {base,- 96}(x{0}:LONGREAL):LONGREAL; 
PROCEDURE Tan * {base,- 48}(x{0}:LONGREAL):LONGREAL; 
PROCEDURE Tanh * {base,- 72}(x{0}:LONGREAL):LONGREAL; 
PROCEDURE Tieee * {base,-102}(x{0}:LONGREAL):REAL; 

(* $OvflChk- $RangeChk- $StackChk- $NilChk- $ReturnChk- $CaseChk- *) 

SEGIN 


base := e.OpenLibrary(s.ADR(name),34); 

IFbase-NILTHEN 

s.SETREG(0,I.DisplayAlert(0,"x00x64x14missing mathieeedoubtrans.library”,50)); 
HALT(O) 

END; 

CLOSE 

!F base#NILTHEN e.CloseLibrary(base) END; 

END MathlEEEDoubTrans. 
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MathTrans: 


MODULE MathTrans; 

IMPORT e: Exec, 

I: Intuition, 
s: SYSTEM; 

CONST MathTransName * = "mathtrans.library"; 

VAR 

base *: e.LibraryPtr; 

PROCEDURE Acos * {base,-120}(x{0} :REAL):REAL; 

PROCEDURE Asin * {base,-114}(x{0} :REAL);REAL; 

PROCEDURE Atan * {base,-30}(x{0} :REAL):REAL; 

PROCEDURE Cos * {base,- 42}(x{0} ;REAL):REAL; 

PROCEDURE Cosh * {base,-66}(x{0} :REAL):REAL; 

PROCEDURE Exp * {base,-78}(x{0} :REAL):REAL; 

PROCEDURE Fieee * {base,-108}(x{0} ;LONGINT):REAL; 

PROCEDURE Log * {base,- 84}(x{0} :REAL):REAL; 

PROCEDURE Log 10 * {base,-126}(x{0} :REAL):REAL; 

PROCEDURE Pow * {base,- 90}(e{1},b{0}:REAL):REAL; 

PROCEDURE Sin * {base,- 36}(x{0} :REAL):REAL; 

PROCEDURE Sincos* {base,- 54}(x{0} :REAL; 

VAR cos{1} :REAL):REAL; 

PROCEDURE Sinh * {base,-60}(x{0} ;REAL):REAL; 

PROCEDURE Sqrt * {base,-96}(x{0} ;REAL):REAL; 

PROCEDURE Tan * {base,- 48}(x{0} :REAL):REAL; 

PROCEDURE Tanh * {base,-72}(x{0} :REAL):REAL; 

PROCEDURE Tieee * {base,-102}(x{0} ;REAL):LONGINT; 

(* $OvflChk- $RangeChk- $StackChk- $NilChk- $ReturnChk- $CaseChk- *) 

BEGIN 

base := e.OpenLibrary(MathTransName,33); 

IF base=NIL THEN 

s.SETREG(0,I.DisplayAlert(0,''x00x64x14missing mathtrans.library”,50)); 
HALT{0) 

END; 

CLOSE 

IF base#NILTHEN e.CloseLibrary(base) END; 

END MathTrans. 
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Narrator: 


MODULE Narrator; (* $lmplementation- *) 

IMPORT e: Exec; 

CONST 

narratorName * = "narrator.device"; 

noMem * = -2; 

noAudLib * = -3; 

makeBad * = -4; 

unitErr * = -5; 

cantAlloc * = -6; 

unimpl * = -7; 

noWrite * = -8; 

expunged * = -9; 

phonErr* = -20; 

rateErr * = -21; 

pitchErr* = -22; 

sexErr * = -23; 

modeErr* = -24; 

freqErr * = -25; 

volErr * = -26; 

CONST 
male * = 0; 
female * = 1; 
natural * = 0; 
robotic * = 1; 
defPitch * = 110; 
defRate* = 150; 
defVol * = 64; 
defFreq * = 22200; 
def Sex * = male; 
def Mode * = natural; 
minRate * = 40; 
maxRate * = 400; 
minPitch * = 65; 
maxPitch * = 320; 
minFreq * = 5000; 
maxFreq * = 28000; 
minVol * = 0; 
maxVol * = 64; 

TYPE 

Narrator * = STRUCT 
message *: e.lOStdReq; 
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rate * : INTEGER; 
pitch *: INTEGER; 
mode *: INTEGER; 
sex * : INTEGER; 
chMasks *: e.ADDRESS; 
nmMasks *: INTEGER; 
volume *: INTEGER; 
sampFreq *: INTEGER; 
mouths *: BYTE; 
chanMask *: BYTE; 
numChan * : BYTE; 
pad *:BYTE; 

END; 

NarratorPtr * = POINTER TO Narrator; 

(* Synonyme mit einheitlicher Namensgebung *) 
lONarrator * = Narrator; 
lONarratorPtr * = NarratorPtr; 

Mouth * = STRUCT 
voice *: lONarrator; 
width * : BYTE; 
height *: BYTE; 
shape *: BYTE; 
pad *:BYTE; 

END; 

MouthPtr * = POINTER TO Mouth; 

END Narrator. 
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Parallel: 


MODULE Parallel; (* $lmplementation- *) 
IMPORT e: Exec; 

CONST 

parallelName * = "parallel.device"; 
query * = e.nonstd; 
setParams * = e.nonstd+1; 

TYPE 

lOPArray * = STRUCT 
pTermArrayO *: LONGINT; 
pTermArrayl * : LONGINT; 

END; 

CONST 
(* ParErr *) 
devBusy * = 1; 
bufTooBig * = 2; 
invParam * = 3; 
lineErr* = 4; 
notOpen * = 5; 
portReset* = 6; 
initErr * = 7; 

(* ParFlags *) 
eofMode * = 1; 
radBoogie * = 3; 
shared * = 5; 

(* Status *) 
pBusy * = 0; 
paperOut * = 1; 
pSel * = 2; 
rwDir * = 3; 
active * = 4; 
abort * = 5; 
queue * = 6; 

TYPE 

lOExtPar * - STRUCT 
ioPar *: e.lOStdReq; 
pExtFlags * : LONGINT; 

Status *: SHORTSET; (* Status *) 
parFiags *: SHORTSET; (* ParFlags *) 
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pTermArray *: lOPArray; 

END; 

lOExtParPtr * = POINTER TO lOExtPar; 

lOParallel * = lOExtPar; 
lOParallelPtr * = lOExtParPtr; 

END Parallel. 
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Printer: 


MODULE Printer; (* $lmplementation- *) 

IMPORT e: Exec, 
g: Graphics; 

CONST 

printerName * = "printer.device"; 
rawWrite * = e.nonstd+0; 
prtCommand * = e.nonstd+1; 
dumpRPort * = e.nonstd+2; 
query * = e.nonstd+3; 


ris* = 0; 

(* ESCc reset 

ISO *) 

rin * = 1; 

(* ESC#1 initialize 

+++ *) 

ind * = 2; 

(* ESCD If 

ISO *) 

nei * = 3; 

(* ESCE return,lf 

ISO *) 

ri * = 4; 

(* ESCM reverse If 

ISO *) 

sgrO * = 5; 

(* ESC[0m normal char set 

ISO *) 

sgr3 * = 6; 

(* ESC[3m italics on 

ISO *) 

sgr23 * = 7; 

(* ESC[23m italics off 

ISO *) 

sgr4 * = 8; 

(* ESC[4m underline * = 0; 

ISO *) 

sgr24 * = 9; 

(* ESC[24m underline off 

ISO *) 

sgrl *=10; 

(* ESC[1 m boldface on 

ISO *) 

sgr22 * = 11; 

(* ESC[22m boldface off 

ISO *) 

sfc * = 12; 

(* SGR30-39 set foreground color 

ISO *) 

sbc * = 13; 

(* SGR40-49 set background color 

ISO *) 

shorpO * = 14 

; (* ESC[0w normal pitch 

DEC *) 

shorp2 * = 15 

; (* ESC[2w elite on 

DEC *) 

shorpl * = 16 

; (* ESC[1w elite off 

DEC *) 

shorp4 * = 17 

; (* ESC[4w Condensed fine on 

DEC *) 

shorp3 * = 18 

; (* ESC[3w Condensed off 

DEC *) 

shorp6 * = 19 

; (* ESC[6w enlarged on 

DEC *) 

shorp5 * = 20 

; (* ESC[5w enlarged off 

DEC *) 

den6 * = 21; 

(* ESC[6 M z shadow print on 

DEC (sort of) *) 

den5 * = 22; 

(* ESC[5"z shadow print off 

DEC *) 

den4 * = 23; 

(* ESC[4"z doublestrike on 

DEC *) 

den3 * = 24; 

(* ESC[3"z doublestrike off 

DEC *) 

den2 * = 25; 

(* ESC[2”z NLQon 

DEC *) 

denl * = 26; 

(* ESC[1"z NLG off 

DEC *) 

sus2 * = 27; 

(* ESC[2v superscript on 

+++ *) 

susl * = 28; 

(* ESC[1v superscript off 

+++ *) 
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SUS4 * = 

29; 

(* ESC[4v subscript on 

+++ *) 

sus3 * = 

30; 

(* ESC[3v subscript off 

+++ *) 

susO * = 

31; 

(* ESC[0v normalize the line 

+++ *) 

plu * = 

32; 

(* ESCL partial line up 

ISO *) 

pld* = 

33; 

(* ESCK partial line down 

ISO *) 

fntO * = 

34; 

(* ESC(B US char set 

DEC *) 

fntl * = 

35; 

(* ESC(R French char set 

DEC *) 

fnt2 * = 

36; 

(* ESC(K German char set 

DEC *) 

fnt3 * = 

37; 

(* ESC(A UK char set 

DEC *) 

fnt4 * = 

38; 

(* ESC(E Danish 1 char set 

DEC *) 

fnt5 * = 

39; 

(* ESC(H Sweden char set 

DEC *) 

fnt6 * = 

40; 

(* ESC(Y Italian char set 

DEC *) 

fnt7 * = 

41; 

(* ESC(Z Spanish char set 

DEC *) 

fnt8 * = 

42; 

(* ESC(J Japanese char set 

+++ *) 

fnt9 * = 

43; 

(* ESC(6 Norweign char set 

DEC *) 

fntl 0 * = 

44; 

(* ESC(C Danish II char set 

+++ *) 

prop2 * 

= 45; 

(* ESC[2p proportional on 

+++*) 

propl * 

= 46; 

(* ESC[1p proportional off 

+++ *) 

propO * 

= 47; 

(* ESC[0p proportional clear 

+++ *) 

tss * = 

48; 

(* ESC[n E set proportional offset 

ISO *) 

jfy5 * = 

49; 

(* ESC[5 F auto left justify 

ISO *) 

jfy? * = 

50; 

(* ESC[7 F auto right justify 

ISO *) 

jfy6 * = 

51; 

(* ESC[6 F auto full justify 

ISO *) 

jfyo * = 

52; 

(* ESC[0 F auto justify off 

ISO *) 

jfy3 * = 

53; 

(* ESC[3 F letter space (justify) 

ISO (special) *] 

jfyi * = 

54; 

(* ESC[1 F word fill(auto center) 

ISO (special) *; 

verpO * = 

= 55; 

(* ESC[0z 1/8" line spacing 

+++ *) 

verpl * = 

= 56; 

(*ESC[1z 1/6" line spacing 

+++ *) 

slpp * = 

57; 

(* ESC[nt set form length n 

DEC *) 

perf * = 

58; 

(* ESC[nq perf skip n (n>0) 

+++ *) 

perfO * = 

= 59; 

(* ESC[0q perf skip off 

+++ *) 

Ims * = 

60; 

(* ESC#9 Left margin set 

+++ *) 

rms * = 

61; 

(* ESC#0 Right margin set 

+++ *) 

tms * = 

62; 

(* ESC#8 Top margin set 

+++ *) 

bms * = 

63; 

(* ESC#2 Bottom marg set 

+++ *) 

stbm * = 

64; 

(* ESC[Pn1 ;Pn2r T&B margins 

DEC *) 

slrm * = 

65; 

(* ESC[Pn1 ;Pn2s L&R margin 

DEC *) 

cam * = 

66; 

(* ESC#3 Clear margins 

+++ *) 

hts * = 

67; 

(* ESCFI Set horiz tab 

ISO *) 

vts * = 

68; 

(* ESCJ Set vertical tabs 

ISO *) 

tbcO * = 

69; 

(* ESC[0g Clr horiz tab 

ISO *) 

tbc3 * = 

70; 

(* ESC[3g Clear all h tab 

ISO *) 

tbcl * = 

71; 

(* ESC[1g Clr vertical tabs 

ISO *) 
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tbc4 * = 72; 

(* ESC[4g Clrallvtabs 

ISO *) 

tbcall * = 73; 

(* ESC#4 Clr all h & v tabs 

+++*) 

tbsall * = 74; 

(* ESC#5 Set default tabs 

+++*) 

extend * = 75; 

(* ESC[Pn"x extended commands 

+++ *) 

raw * = 76; 

(* ESC[Pn"r next Pn chars are raw 

+++*) 


{* Error *) 
noErr * = 0; 
cancel * = 1; 
notGraphics * = 2; 
invertHam * = 3; 
badDimension * = 4; 
dimensionOvflow * = 5; 
internalMemory * = 6; 
bufferMemory * = 7; 
tookControl * = 8; 

TYPE 

lOPrtCmdReq * = STRUCT 
message *: e.Message; 
device *: e.DevicePtr; 
unit * : e.UnitPtr; 
command * : INTEGER; 
flags * : SHORTSET; 
error * : SHORTINT; (* Error *) 
prtCommand * : INTEGER; 
parmO * : BYTE; 
parml *: BYTE; 
parm2 *: BYTE; 
parm3 * : BYTE; 

END; 

lOPrtCmdReqPtr * = POINTER TO lOPrtCmdReq; 

CONST 
(* Special *) 
milCols * = 0; 
milRows * = 1; 
fullCols * = 2; 
fullRows * = 3; 
fracCols * = 4; 
fracRows * = 5; 
center * = 6; 
aspect * = 7; 
densityl * = 8; 
density2 * = 9; 
density4 *= 10; 
noFormFeed * = 11; 
trustMe * = 12; 
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noPrint * = 13; 


density3 * = {densityl ,density2}; 

densityö * = {densityl ,density4}; 

densityö * = {density2,density4}; 

density7 * = {densityl ..density4}; 

densityMask * = {densityl ..density4}; 

dimensionMask * = {milCols..fracRows,aspect}; 

TYPE 

lODRPReq * = STRUCT 
message *: e.Message; 
device *: e.DevicePtr; 
unit *: e.UnitPtr; 
command*: INTEGER; 
flags * : SHORTSET; 
error * : SHORTINT; (* Error *) 
rastPort *: g.RastPortPtr; 
colorMap *: g.CoiorMapPtr; 
modesHi *: INTEGER; (* * : * = 0 *) 
modes * : SET; (* Graphics.ViewModes *) 
srcX *: INTEGER; 
srcY *: INTEGER; 
srcWidth *: INTEGER; 
srcHeight *: INTEGER; 
destCols * : LONGINT; 
destRows *: LONGINT; 
special * : SET; (* Special *) 

END; 

lODRPReqPtr * = POINTER TO lODRPReq; 

(* Synonyme mit einheitlicher Namensgebung *) 
lOPrinter * = lOPrtCmdReq; 
lOPrinterPtr * = lOPrtCmdReqPtr; 


END Printer. 
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PrtBase: 


MODULE PrtBase; (* $lmplementation- *) 

IMPORT e:Exec, 

I: Intuition, 
p: Parallel, 
s: Serial, 
t: Timer; 

TYPE 

DeviceData * = STRUCT 
device *: e.Device; 
segment *: e.BPTR; 
execBase *: e.ExecBasePtr; 
cmdVectors *: e.ADDRESS; 
cmdBytes *: e.ADDRESS; 
numCommands * : INTEGER; 

END; 

DeviceDataPtr * = POINTER TO DeviceData; 

CONST 
bufSize * = 256; 
safeSize * = 128; 
stkSize * = 0800H; 

TYPE 

PrinterSegmentPtr * = POINTER TO PrinterSegment; 
PrinterData * = STRUCT 
device *: DeviceData; 
unit *: e.MsgPort; 
printerSegment *: e.BPTR; 
printerType *: INTEGER; 
segmentData *; PrinterSegmentPtr; 
printBuf *: e.ADDRESS; 
pWrite * : PROCEDUREQ: INTEGER; 
pBothReady *: PROCEDUREQ: INTEGER; 
p0,p1 *: p.lOParallel; (* oder s.lOSerial *) 
tior * :t.lOTimer; 
iorPort*: e.MsgPort; 
tc *: e.Task; 

stk *: ARRAY stkSize OF BYTE; 
flags *: BYTE; 
pad *: BYTE; 

preferences *: I.Preferences; 
pWaitEnabled *: BYTE; 

END; 
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PrinterDataPtr * = POINTER TO PrinterData; 
CONST 

(* PrinterClass *) 
gfx * = 0; 
color * = 1; 

bwAlpha * = SHORTSET{}; 
bwGfx * = SHORTSET{gfx}; 
colorAlpha * = SHORTSET{color}; 
colorGfx * = SHORTSET{gfx,color}; 


(* ColorClass *) 
blackAndWhite * = 0; 
colors * = 1; 
fourColor * = 2; 
additive * = 3; 
multipass * = 4; 

bw * = SHORTSET{blackAndWhite}; 

ymc * = SHORTSET{colors}; 

ymcBw * = SHORTSET{blackAndWhite,colors}; 

ymcb * = SHORTSETffourColor}; 

wb * = SHORTSET{blackAndWhite,additive}; 

bgr * = SHORTSET{colors,additive}; 

bgrWb * = SHORTSET{blackAndWhite,colors,additive}; 

bgrw * = SHORTSET{fourColor, additive}; 

TYPE 

PrinterExtendedData * = STRUCT 
printerName *: e.ADDRESS; 
init *: PROCEDURE(); 
expunge *: PROCEDURE(); 
open *: PROCEDURE(): INTEGER; 
close *: PROCEDUREQ; 
printerClass *: SHORTSET; (* PrinterClass *) 
colorClass *: SHORTSET; (* ColorClass *) 
maxColumns *: BYTE; 
numCharSets *: BYTE; 
numRows *: INTEGER; 
maxXDots *: LONGINT; 
maxYDots *: LONGINT; 
xDotsInch *: INTEGER; 
yDotsInch *: INTEGER; 
commands *: e.ADDRESS; 
doSpecial *; PROCEDUREQ: LONGINT; 
render *: PROCEDUREQ: LONGINT; 
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timeoutSecs *: LONGINT; 
eightBitChars *: e.ADDRESS; 
printMode *: LONGINT; 
convFunc *: PROCEDURE(): LONGINT; 

END; 

PrinterExtendedDataPtr * = POINTER TO PrinterExtendedData; 

PrinterSegment * = STRUCT 
nextSegment *; e.BPTR; 
runAlert *: LONGINT; 

Version *: INTEGER; 
revision *: INTEGER; 
ped *: PrinterExtendedData; 

END; 

END PrtBase. 
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Resources: 

MODULE Resources; 

IMPORT 
e: Exec; 

CONST 

ciaaName * = "ciaa.resource"; 
ciabName * = "ciab.resource'’; 

TYPE 

CiaResourceRr * = e.ADDRESS; 

VAR 

cia *: CiaResourceRr; (* Setzen, bevor Cia-Routinen benutzt werden! *) 


TYPE 

DiscResourceUnit * = STRUCT 
message *: e.Message; 
discBlock *: e.Interrupt; 
discSync *: e.Interrupt; 
index * : e. Interrupt 
END; 

DiscResourcellnitRr * = POINTER TO DiscResourceUnit; 

CONST 

(* DiscResourceFlags *) 
allocO * = 0; 
allocl * = 1; 
alloc2 * = 2; 
alloc3 * = 3; 
active * = 7; 

numAlloc * = 4; 

TYPE 

DiscResource * = STRUCT 
library *: e. Library; 
current *: DiscResourceUnitRr; 
flags * : SHORTSET; (* DiscResourceFlags *) 
pad * : BYTE; 
sysLib *: e.LibraryPtr; 
ciaResource *: e.LibraryPtr; 
unitID * : ARRAY numAlloc OF LONGINT; 
waiting *: e.List; 
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discBlock *: e.Interrupt; 
discSync *: e.Interrupt; 
index *: e.Interrupt; 

END; 

DiscResourcePtr * = POINTER TO DiscResource; 
CONST 

diskName * = "disk.resource"; 
dskDmaOff * = 4000H; 
amiga * = 0; 

drt37422D2S * = 55555555H; 
empty * = -1; 


VAR 

disk *: DiscResourcePtr; (* Setzen, bevor Disc-Routinen benutzt werden! *) 

CONST 

fsrName * = "FileSystem.resource"; 

TYPE 

FileSysResource * = STRUCT 
node *: e.Node; 
creator* : e.ADDRESS; 
fileSysEntries *: e.List; 

END; 

FileSysEntry * = STRUCT 
node *: e.Node; 
dosType * : LONGINT; 

Version * : LONGINT; 
patchFlags * : LONGINT; 
type *: LONGINT; 
task *: e.TaskPtr; 

lock *: e.BPTR; (* Dos.FileLockPtr *) 

handler *: e.BPTR; 

stackSize *: LONGINT; 

priority *: LONGINT; 

startup *: e.BPTR; 

segList* : e.BPTR; 

globalVec *: e.BPTR; 

END; 

CONST 

(* MathlEEEResourceFlags *) 
dblbas * = 0; 
dbltrans * = 1; 
sglbas * = 2; 
sgltrans * = 3; 
extbas * = 4; 
exttrans * = 5; 
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TYPE 

PROC *= PROCEDUREO; 

MathlEEEResource * = STRUCT 
node *: e.Node; 

flags *: SET; (* Math IEEE ResourceFlags *) 

baseAddr*: e.ADDRESS; 

dblBaslnit *: PROC; 

dblTranslnit *: PROC; 

sglBaslnit *: PROC; 

sglTranslnit *: PROC; 

extBaslnit *: PROC; 

extTranslnit *: PROC; 

END; 

MathlEEEResourcePtr * = POINTER TO MathlEEEResource; 

CONST 

miscName * = "misc.resource"; 

CONST 

(* ResourceTypes *) 
serialPort * = 0; 
serial Bits * = 1; 
parallelPort * = 2; 
parallelBits * = 3; 
numResourceTypes * = 4; 

TYPE 

MiscResource * * STRUCT 
library *: e.Library; 

allocArray *: ARRAY numResourceTypes OF e.ADDRESS; 

END; 

MiscResourcePtr * = POINTER TO MiscResource; 

VAR 

misc *: MiscResourcePtr; (* Setzen, bevor Misc-Routinen benutzt werden! *) 


CONST 

potgoName * = "potgo.resource"; 

VAR 

potgo *: e.ADDRESS; (* Setzen, bevor Potgo-Routinen benutzt werden! *) 

(* CIA-Prozeduren: (vor Verwendung cia setzen !) *) 

PROCEDURE AblelCR * {cia,-18}(mask{0}:SHORTSET (* Hardware.CialcrFlags *) 

14/119 




14. Die Amiga-Interface-Module 


):SHORTSET; (* Hardware.CialcrFlags *) 

PROCEDÜRE AddICRVector * {cia,-6}( 

icrBit{0}:SHORTSET; (* Hardware.CialcrFlags *) 

interrupt{9}:e.lnterruptPtr 

):e.lnterruptRr; 

PROCEDÜRE RemiCRVector* {cia,-12}( 

icrBit{0}:SHORTSET; (* Hardware.CialcrFlags *) 
interrupt{9}:e.lnterruptPtr); 

PROCEDÜRE SetICR * {cia,-24}(cia{14}:CiaResourcePtr; 

mask{0}:SHORTSET (* Hardware.CialcrFlags*) 
):SHORTSET; (* Hardware.CialcrFlags *) 


(* DISC-Prozeduren: (vor Verwendung disk setzen !) *) 

PROCEDÜRE Allocünit * {disk,-6}(unitNum{0}:LONGINT):BOOLEAN; 

PROCEDÜRE Freeünit * {disk,-12}(unitNum{0}:LONGINT); 

PROCEDÜRE Getünit * {diskr18}(unitPointer{9}:DiscResourceünitPtr 
):DiscResourceünitRr; 

PROCEDÜRE GetünitlD * {disk,-30}(unitNum{0}:LONGINT):LONGINT; 
PROCEDÜRE Giveünit * {disk,-24}; 

(* MISC-Prozeduren: (vor Verwendung misc setzen !) *) 

PROCEDÜRE AllocMiscResource * {misc,-6}(unitNum{0}:LONGINT; 

name{9}: ARRAY OF CHAR):e.ADDRESS; 
PROCEDÜRE FreeMiscResource * {misc,-12}(unitNum{0}:LONGINT); 

(* POTGO-Prozeduren: (vor Verwendung potgo setzen !) *) 

PROCEDÜRE ASIocPotBits * {potgo,-6}(bits{0}: SET (* Hardware. PotFlags *) 

): SET; (* Hardware.PotFlags *) 

PROCEDÜRE FreePotBits * {potgo,-12}(allocated{0}: SET (* Hardware.PotFlags *)); 
PROCEDÜRE WritePotgo * {potgo,-18}(word{0}: SET; (* Hardware.PotFlags *) 
mask{1}: SET (* Hardware.PotFlags *)); 


END Resources. 
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SCSI: 


MODULE SCSI; (* $lmplementation- *) 

IMPORT e:Exec; 

CONST 

scsiCmd * = 28; 

(* SCSIFIags: *) 

write * = 0; 

read * = 1; 

TYPE 

SCSICmd * = STRUCT 
data * : e.ADDRESS; 
length * : LONGINT; 
actual *: LONGINT; 
command *: e.ADDRESS; 
cmdLength * : INTEGER; 
cmdActual * : INTEGER; 
flags * : SHORTSET; (* SCSIFIags *) 
Status *: BYTE; 

END; 

SCSICmdPtr * = POINTER TO SCSICmd; 

CONST 

Seif Unit * = 40; 

DMA* = 41; 

Phase * = 42; 

Parity * = 43; 

SelTimeout * = 44; 

BadStatus * = 45; 

NoBoard * = 50; 

END SCSI. 
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Serial: 


MODULE Serial; (* $lmplementation- *) 

IMPORT e: Exec; 

CONST 

serialName * = "serial.device"; 
query * = e.nonstd; 
break * = e.nonstd+1; 
setParams * = e.nonstd+2; 
active * = SHORTSET{4}; 
abort * = SHORTSET{5}; 
queued * = SHORTSET{6}; 
bufrRead * = SHORTSET{7}; 

TYPE 

lOTArray * = STRUCT 
termArrayO * : LONGINT; 
termArrayl * : LONGINT; 

END; 

CONST 

C SerFlags *) 
partyOn * = 0; 
partyOdd * = 1; 
sevenWire * = 2; 
queuedBrk * = 3; 
radBoogie * = 4; 
shared * = 5; 
eofMode * = 6; 
xDisabled * = 7; 
mark * = 8; 
mSpOn * = 9; 

(* Status *) 
busy * =0; 
paperOut * = 1; 
select * = 2; 
dataSetReady * = 3; 
clearToSend * = 4; 
carrierDetect * = 5; 
readyToSend * = 6; 
dataTerminalReady * = 7; 
overrun * = 8; 
wroteBreak * = 9; 
readBreak* = 10; 
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xOffWrite * = 11; 
xOffRead * = 12; 

ringlndicator * = select; 

(* Error *) 
devBusy * = 1; 
baudMismatch * = 2; 
invBaud * = 3; 
bufErr * = 4; 
invParam * = 5; 
lineErr * = 6; 
notOpen * = 7; 
portReset * = 8; 
parityErr * = 9; 
initErr* = 10; 
timerErr * = 11; 
bufOverflow * = 12; 
nodsr* = 13; 
nocts* = 14; 
detectedBreak * = 15; 

TYPE 

lOExtSer * = STRUCT 
ioSer *: e.lOStdReq; 
ctIChar* : LONGINT; 
rBufLen *: LONGINT; 
extFlags *: LONGSET; (* SerFlags *) 
baud *: LONGINT; 
brkTime *: LONGINT; 
termArray *: lOTArray; 
readLen *: BYTE; 
writeLen *: BYTE; 
stopBits *: BYTE; 

serFlags *: SHORTSET; (* SerFlags (<8!) *) 
Status *: SET; (* Status *) 

END; 

lOExtSerPtr * = POINTER TO lOExtSer; 

(* Synonyme mit einheitlicher Namesgebung *) 
lOSerial * = lOExtSer; 
lOSerialPtr * = lOExtSerPtr; 

END Serial. 
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Timer: 


MODULE Timer; 

IMPORT e: Exec; 

CONST 

timerName * = "timer.device"; 
addRequest * = e.nonstd+O; 
getSysTime * = e.nonstd+1; 
setSysTime * * e.nonstd+2; 
microHz *« 0; 
vBlank * = 1; 

TYPE 

TimeVal * = STRUCT 
secs *: LONGINT; 
micro *: LONGINT 
END; 

TimeValPtr * - POINTER TO TimeVal; 

TimeRequest * = STRUCT 
node *: e.lORequest; 
time *: TimeVal 
END; 

TimeRequestPtr * = POINTER TO TimeRequest; 

lOTimer* = TimeRequest; 
lOTimerRr * = TimeRequestPtr; 

VAR 

timer*: e.DevicePtr; (* muß auf das Timer-Device zeigen! *) 

PROCEDURE AddTime * {timer,-42}(VAR dest{8},source{9}: TimeVal); 
PROCEDURE CmpTime * {timer,-54}(VAR tvl {8} ,tv2{9} : TimeVal): INTEGER; 
PROCEDURE SubTime * {timer,-48}{VAR dest{8},source{9}: TimeVal); 

END Timer. 
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MODULE TrackDisk; (* $lmplementation- *) 

IMPORT e:Exec; 

CONST 

trackDiskName * = "trackdisk.device"; 

motor * = e.nonstd; 

seek* = e.nonstd+1; 

format * = e.nonstd+2; 

remove * = e.nonstd+3; 

changeNum * = e.nonstd+4; 

changeState * = e.nonstd+5; 

protStatus * = e.nonstd+6; 

rawRead * = e.nonstd+7; 

rawWrite * = e.nonstd+8; 

getDriveType * = e.nonstd+9; 

getNumTracks * = e.nonstd+10; 

addChangelnt * = e.nonstd+11; 

remChangelnt * = e.nonstd+12; 

lastComm * = e.nonstd+13; 

extCom * = 8000H; 

extWrite * = e.write+extCom; 

extRead * = e.read+extCom; 

extMotor * = motor+extCom; 

extSeek * = seek+extCom; 

extFormat * = format+extCom; 

extUpdate * = e.update+extCom; 

extClear * = e.clear+extCom; 

extRawRead * = rawRead+extCom; 

extRawWrite * = rawWrite+extCom; 

numSecs * = 11; 

numllnits * = 4; 

sector * = 512; 

secShift * = 9; 

labelSize * = 16; 

indexSync * = 4; 

allowNon35 * = 0; 

drive35 * = 1; 

drive525 * = 2; 

notSpecified * = 20; 

noSecHdr* = 21; 

badSecPreamble * = 22; 

badSecId * = 23; 

badHdrSum * = 24; 

badSecSum * = 25; 
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tooFewSecs * = 26; 
badSecHdr * = 27; 
writeProt * = 28; 
diskChanged * = 29; 
seekError * = 30; 
noMem * = 31; 
badUnitNum * = 32; 
badDriveType * = 33; 
drivelnUse * = 34; 
postReset * = 35; 

TYPE 

lOExtTD * = STRUCT 
req *: e.lOStdReq; 
count *: LONGINT; 
secLabel *: LONGINT; 

END; 

lOExtTDRr * = POINTER TO lOExtTD; 
TDUPublicUnit * = STRUCT 
unit *: e.Unit; 

compOl Track *: INTEGER; 
complOTrack *: INTEGER; 
compllTrack *: INTEGER; 
stepDelay *: LONGINT; 
settleDelay *: LONGINT; 
retryCnt * : BYTE; 

END; 

(* Synonyme zur einheitlichen Namesgebung *) 
lOTrackDisk * = lOExtTD; 
lOTrackDiskPtr * = lOExtTDRr; 

END TrackDisk. 
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Translator: 


MODULE Translator; 

IMPORT e: Exec, 

I: Intuition, 
s: SYSTEM; 

CONST 
notUsed * = -1; 
noMem * = -2; 
makeBad * = -4; 

TranslatorName * - "translator.library”; 

VAR 

base *: e.LibraryPtr; 

PROCEDURE Translate * {base,-30}(in{8}:e.ADDRESS; 

inLen{0}:LONGINT; 
out{9}:e. ADDRESS; 
outLen{1 }:LONGINT): LONGINT; 

(* $OvflChk- $RangeChk- $StackChk- $NilChk- $ReturnChk- $CaseChk- *) 
BEGIN 

base := e.OpenLibrary(TranslatorName,34); 

IF base=NILTHEN 

s.SETREG(0,I.DisplayAlert(0,"\x00\x64\x14missing translator.library M ,50)); 
HALT(O) 

END; 

CLOSE 

IF base#NILTHEN e.CloseLibrary(base) END; 

END Translator. 
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Workbench: 


MODULE Workbench; (* $lmplementation- *) 

IMPORT e: Exec, 

Dos, 

I: Intuition, 
s: SYSTEM; 

CONST 

diskMagic * = 0E310H; 
diskVersion * = 1; 
gadgetBackFill * = {l.gadgHBox}; 
nolconPosition * = MIN(LONGINT); 

(* WBObjectType *) 
disk * = 1; 
drawer * = 2; 
tool * = 3; 
project *= 4; 
garbage * = 5; 
device *= 6; 
kick * = 7; 

(* MType *) 
pstd * = 1; 
toolExit * = 2; 
diskChange * = 3; 
timer * = 4; 
closeDown * = 5; 
ioProc * = 6; 

TYPE 

DiskObjectPtr * = POINTER TO DiskObject; 

DrawerDataPtr * = POINTER TO DrawerData; 

FreeListPtr * = POINTER TO FreeList; 

WB Arg Ptr * = POINTER TO WBArg; 

WBStartupPtr * = POINTER TO WBStartup; 

WBArg * = STRUCT 
lock *: Dos.FileLockPtr; 
name *: e.ADDRESS 
END; 

WBArgumentsPtr * = POINTER TO ARRAY 256 OF WBArg; 
WBStartup * = STRUCT 
message *: e.Messager 
process *: e.MsgPortPtr; 
segment *: e.BPTR; 
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numArgs * : LONGINT; 
toolWindow * : e.ADDRESS; 
argList *: WBArgumentsPtr; 

END; 

FreeList * = STRUCT 
numFree * : INTEGER; 
memList *: e.List 

END; 

DiskObject * = STRUCT 
magic * : INTEGER; 

Version * : INTEGER; 
gadget *; l.Gadget; 

type * : SHORTINT; (* WBObjectType *) 
defaultTool * : e.ADDRESS; 
toolTypes *: e.ADDRESS; 
currentX *: LONGINT; 
currentY * : LONGINT; 
drawerData *: DrawerDataPtr; 
toolWindow *: e.ADDRESS; 
stackSize *: LONGINT 

END; 

DrawerData * = STRUCT 
newWindow *: I.NewWindow; 
currentX * : LONGINT; 
currentY * : LONGINT; 

END; 

CONST 

drawerDataFileSize * = s.SIZE(DrawerData); 
END Workbench. 
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15. Das Make-Utility OMake 

Allgemeines: 

Ein Make-Utility ist ein Programm, das das Neucompilieren von Mo¬ 
dulen bei großen Programmprojekten stark vereinfacht. Wurden Mo- 
dule eines Projektes verändert, kann das Make dazu verwendet 
werden, alle Module, die bedingt durch diese Änderungen auch neu 
compiliert werden müssen, zu finden und automatisch neu zu 
compilieren. 

Aufruf von OMake: 

Im OEd kann OMake einfach durch Anwählen des Menüpunktes 
’Make’ im Menü ’Oberon’ gestartet werden. Dabei muß sich der 
Quelltext des Hauptmoduls des Projektes im aktiven OEd-Fenster 
befinden. Wurde im Text etwas geändert, muß er zunächst gespeichert 
werden. 

Start von der Workbench: 

Von der Workbench kann OMake durch erweitertes Anwählen mit 
dem Quelltext des Hauptmoduls gestartet werden. Die Compileroptio¬ 
nen können über sogenannte Tool Types angegeben werden. Diese 
können, nachdem das Icon von OMake angewählt wurde, mit Info im 
Workbench-Menü geändert werden. 

Start vom CLI: 

Beim Start von OMake aus einem CLI heraus können noch eine Reihe 
von Optionen angegeben werden: 
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Aufruf: 

( 

OMake [c-svbcrnotpmdl238ig] [1-bsmdi] <source> [ALL] 

[DONTLINK] {OBJ <file>} 

Dabei bedeutet: 

c-[svbcrnotpmdl238ig] 

beim Compilieren die angegebenen Optionen 
[svbcrnotpmdl238ig] verwenden 

beim Linken die Optionen [bsrndi] verwenden ( 

Hierhin sollte der Name des Hauptmoduls geschrie¬ 
ben werden 

Diese Option erzwingt, daß alle Module neu compi- 
liert werden, egal, ob dies nötig ist oder nicht 
Verhindert, daß OLink gestartet wird 
Dieser Parameter hat die gleiche Funktion wie der 
gleichnamige Parameter bei OLink. Dahinter kann 
eine weitere Objektdatei, z.B. die eines Assembler¬ 
moduls, angegeben werden, die zum Programm 
dazugelinkt werden soll. 

Arbeitsweise von OMake: 

OMake untersucht den Quelltext des Hauptmoduls und aller von die¬ 
sem Modul direkt oder indirekt importierten Module. Die Quelltexte 
werden dabei in allen Pfaden, die in der Datei ’Oberon:Path’ enthalten 
sind, gesucht. 

Alle Module, deren Quelltexte jünger sind als ihre Objektdateien, 
werden neu compiliert. Gleiches geschieht mit Modulen, die Module 
importieren, deren Symboldateien jünger sind als die eigene 
Objektdatei. 


1-[bsrndi] 
<source> 

ALL 

DONTLINK 

OBJ 
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Beispiele: 

"OMake Test" 

Compiliert alle Module, die Test.mod direkt oder indirekt imporiert 
und die seit der letzen Compilation verändert wurden. Danach wird 
Test evtl, neu gelinkt. 

OMake c-dm 1-dm Test ALL 

Compiliert alle Module, die Test.mod importiert, und Test.mod selbst 
mit dem kleinen Daten- und Code-Modell neu und linkt Test mit die¬ 
sen Speichermodellen. 

Probleme: 

Damit OMake korrekt funktionieren kann, dürfen die Erstellungsdaten 
der Objekt- und Symboldateien nicht verändert werden. Dies würde 
z.B. beim Kopieren der Dateien geschehen, wenn man die Option 
’clone’ beim COPY-Befehl nicht angibt. 

Implementationslose Module (wie z.B. Exec.mod), die jünger sind als 
ihre Symboldateien, beim Compilieren jedoch keine neue Symbolda¬ 
tei erzeugen, werden immer neu compiliert. 
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16. Der Library-Linker LibLink 

Mit diesem Programm ist es möglich, mit dem Amiga Oberon Compi¬ 
ler geschriebene Module zu Amiga-Libraries und -Devices zu Linken. 

Installation: 

Um LibLink verwenden zu können, müssen sich die Objektdateien 
LibraryHead.obj/.objs und LibOberonLib.obj/.objs in einem in 
Oberon:Path angegeben Verzeichnis befinden. 

Start von LibLink: 

LibLink kann nur vom CLI aus verwendet werden. 

Aufruf: 

LibLink {[[MAIN] <file>] [PROC <Module.Name>] [ICONS] 
[OPEN <Module.Name>] [CLOSE <Module.Name>] 
[VERSION <n>] [REVISION <n>] [SIZE <n>] [DEVICE] 

[TO <name.library>] [XREF <file>] [OBJ <file>] 
[SMALLDATA] [SMALL] [WITH <file>] } 

Dabei bedeutet: 

[MAIN] <file> 

Das Hauptmodul (ohne Endung). Dieses Modul muß direkt oder indi¬ 
rekt alle anderen an der Library beteiligten Module importieren. 

PROC <Module.Name> 

Mit PROC können Prozeduren angegeben werden, die in die Library 
übernommen werden sollen. Die Prozeduren müssen qualifiziert ange¬ 
geben werden, daß heißt Modulename, ein Punkt und der 
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Prozedurname. Die Prozedur muß im Oberon-Quelltext als exportiert 
gekennzeichnet sein. Es können auch Prozeduren aus verschiedenen 
Modulen angegeben werden. Dabei müssen jedoch alle beteiligten 
Module von dem bei MAIN angegebenen Modul importiert werden. 

Es können beliebig viele Prozeduren angegeben werden. Die zuerst 
angegebenen Prozeduren bekommen die kleineren (absolut gesehen) 
Offsets zur Librarybasisadresse, d.h. die erste Prozedur -30, die zweite 
-36 etc. 

Wer ein Device linken möchte, muß als erstes die zwei Prozeduren für 
BeginlO und AbortIO des Devices angeben. 

ICONS 

Wenn diese Option gesetzt ist, werden Icons erzeugt. 

OPEN <Module.Name> 

Mit OPEN kann optional eine parameterlose Prozedur mit einem Er¬ 
gebnis vom Typ BOOLEAN angegeben werden, die bei jedem Öffnen 
der Library oder des Devices aufgerufen wird. Das Ergebnis der Pro¬ 
zedur ist FALSE, wenn die Library wegen Speichermangels oder ähn¬ 
lichem nicht geöffnet werden konnte. 

CLOSE <Module.Name> 

Optionale parameterlose Prozedur, die bei jedem Schließen der Libra¬ 
ry aufgerufen wird. 

VERSION <n> 

Library-Versionsnummer. Wird VERSION nicht angegeben, bekommt 
die Library die Version 0. 
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REVISION <n> 

Library-Revisionsnummer. Wird REVISION nicht angegeben, be¬ 
kommt die Library die Revision 0. 

SIZE <n> 

Optionale Größe der Librarystruktur. Sie ist voreingestellt auf 
SYSTEM.SIZE(Exec.Library)=34. Möchte man noch weitere Daten 
darin speichern, muß man hier die Größe der verlängerten Library¬ 
struktur angeben. 

DEVICE 

Wenn gesetzt, wird keine Library, sondern ein Device erzeugt. 

TO <name.library> 

Optionaler Name der zu erzeugenden Library bzw. des zu erzeugen¬ 
den Devices. Wird er nicht angegeben, wird der Name von MAIN + 
’.library’ verwendet. 

XREF <file> 

Name einer optionalen Cross-Reference-Datei. Dies ist eine ASCII- 
Datei die Infonnationen zur Library und die Offsets der Prozeduren 
enthält. Sie hilft beim Schreiben eines Interfacemoduls zum Aufruf 
der Libraryfunktionen. 

OBJ <file> 

Dieser Parameter entspricht dem OBJ von OLink und ermöglicht es, 
weitere Objektdateien, etwa von Assemblerroutinen, anzugeben, die 
zum Linken nötig sind. 
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SMALL 

SMALL bewirkt, daß alle Datenhunks zu einem Hunk zusammenge¬ 
bunden werden, so daß die Library etwas kürzer wird. 

SMALLDATA 

Diese Option muß angegeben werden, wenn die Module der Library 
mit der Option ’-d’, also mit dem kleinen Datenmodell, compiliert 
wurden. 

Bei einer solchen Library muß man besonders vorsichtig sein, da man 
selbst den Zeiger auf die globalen Variablen in jeder Libraryprozedur 
laden muß, bevor man auf globale Variablen zugreift. A5 wird von Li¬ 
brary Head automatisch an die Variable mit dem Label ’Library- 
Head.Globals’ kopiert. Man sollte sich diese Variable also mit 

VAR Globals["LibraryHead.Globals"]: LONGINT; 

deklarieren und in jeder Prozedur mit ’SYSTEM.SETREG(13,Glo- 
bals);’ den Zeiger auf die Variablen nach A5 kopieren. 

WITH <file> 

WITH gibt eine Datei an, die weitere Parameter enthält. Die Parame¬ 
ter in der WITH-Datei entsprechen denen beim direkten Aufruf von 
LibLink. Da es bei größeren Libraries sehr viele Parameter werden 
können, sollte man sie in eine Datei schreiben. Die WITH-Datei darf 
aus beliebig vielen Zeilen bestehen und kann sogar mit WITH noch 
anderere WITH-Dateien aufrufen. 


Die Reihenfolge der Parameter ist egal. Die Parameter in der CLI- 
Zeile sind mit denen in der WITH-Datei gleichgestellt. Der Parameter 
MAIN darf nicht weggelassen werden. Alle Parameter, mit der Aus- 
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nähme von PROC und WITH, sollten oder dürfen nicht mehrmals an¬ 
gegeben werden. 

Wichtige Hinweise: 

Die Module und alle von Ihnen importierten Module, die zu Libraries 
gebunden werden sollen, müssen folgende Eigenschaften haben: 

-alle Prozeduren müssen reentrant sein. Das heißt, daß globale 
Variablen nur bedacht und mit äußerster Vorsicht verwendet 
werden dürfen. 

- folgende Standardmodule dürfen nicht verwendet werden: 

Break BreakRq FileSystem 

io NoGuru NoGuruRq 

OberonLib ReallnOut SecureDos 

- Da alle Module OberonLib automatisch importieren, wird diese 
beim Linken durch LibOberonLib ersetzt. 

-Die Module sollten ohne Stackkontrolle compiliert werden. Es 
ist jedoch auch nicht schlimm, wenn die Stackkontrolle nicht 
abgeschaltet wurde. Dadurch wird lediglich Speicher und Zeit 
verschwendet. 

-Die Module dürfen nur während der Ausführung der BEGIN- 
Teile mit HALT() abbrechen, überall sonst führt ein HALT zu 
Gurus oder ähnlichem. 

- Laufzeitfehler führen zum Guru. Dies sollte jedoch kein Grund 
sein, den Überprüfungscode abzustellen, sondern vielmehr soll¬ 
ten die Module mit mehr Sorgfalt geschrieben und gut ausge¬ 
testet werden. Ein Fehler, der zu einem Guru führt ist immer 
besser als einer, den man nicht gleich bemerkt. 
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-Die Prozeduren, die als Libraryprozeduren dienen sollen, müs¬ 
sen die Register retten (am besten mit $SaveRegs+). 

Libraries können auf ein paar Variablen zugreifen, die in den Assem¬ 
blermodulen LibraryHead.obj und LibraryHead.objs definiert wurden: 

VAR 

LibBase["LibraryHead.UbBase"]: Exec.LibraryPtr; 

Zeigt auf die Library-Struktur dieser Library. Dieser Zeiger wird bei 
jedem Aufruf von Funktionen der Library in A6 übergeben. 

SegList["LibraryHead.SegList"]: Exec.BPTR; 

Ein Zeiger auf die Segmentliste dieser Library. 

Globals["LibraryHead.Globals"]: LONGINT; 

Globals existiert nur, wenn mit der Option ’-d’ compiliert und mit 
SMALLDATA gelinkt wurde. Es enthält die Basisadresse der globalen 
Variablen. Globals muß von jeder Prozedur vor der Verwendung glo¬ 
baler Variablen nach A5 kopiert werden. 
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Diese überarbeitete Version des Amiga Oberon Compiler bietet eine 
Reihe an neuen Möglichkeiten, die das Arbeiten mit dem System er¬ 
leichtern und die Programmierung des Amiga in Oberon vereinfachen. 
Spezielle Verbesserungen ermöglichen die Programmierung des Ami- 
gaOS 2.0 und die Ausnützung schnellerer Prozessoren, wie sie z.B. im 
Amiga 3000 vorhanden sind. Andere Erweiterungen verbessern den 
erzeugten Code ganz allgemein. 

Änderungen am Compiler: 

Start vom CLI: 

Beim Start von CLI können nun folgende Parameter angegeben 
werden: 

OBERON {-[svbcrnotpmdl238ig] I 

[’SETTCLEAR’] <Option> I 
<source>} 

Mit den Optionen ’-l’, ’-2’ und ’-3’ kann der Compiler veranlaßt 
werden, Code zu erzeugen, der speziell für die Mikroprozessoren 
68010,68020 bzw. 68030 optimiert wird. Das Compilat ist danach nur 
auf Amigas lauffahig, die den entsprechenden Prozessor installiert 
haben, da Befehle, die nur auf diesen Prozessoren laufen, ausgenutzt 
werden, um schnellere Programme zu erzeugen. 

Die Option ’-8’ bewirkt, daß Code für die Floating Point Unit (FPU) 
68881 oder 68882 erzeugt wird. Dies sind Coprozessoren, die das 
Rechnen mit LONGREAL-Zahlen stark beschleunigen. Die so compi- 
lierten Module sind nur auf Rechnern mit FPU lauffähig. 

Der Compiler benutzt bei kleinen Prozeduren automatisch Registerpa- 
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rameter und Registervariablen, damit diese Prozeduren schneller ab¬ 
gearbeitet werden können. Möchte man diese Optimierung ( 
unterdrücken, kann man die Option ’-p’ setzen. 

Da das Dereferenzieren eines Zeigers, der einen ungeraden Wert 
enthält, auf den Prozessoren 68020 und 68030 nicht mehr automatisch 
zu einem Adressfehler führt, kann man durch Setzen der Option ’-o’ 
speziellen Code erzeugen, der ähnlich wie der Nil-Überprüfungscode 
prüft, ob Zeiger ungerade Werte enthalten und mit einem Laufzeitfeh¬ 
ler abbricht, wenn dies der Fall ist. 

Die Option ’-g’ erzeugt speziellen Code für den Run-Time-Source- 
Level-Debugger ODebug. Der Debugger kann als Zusatzpaket zum 
Compiler bei der A+L AG bestellt werden. Eine genauere Beschrei¬ 
bung dieser Option ist in der Dokumentation zu ODebug enthalten. 

Mit "SET <Option>" und "CLEAR <Option>" kann eine Option für 
die bedingte Compilation gesetzt bzw. gelöscht werden. Genaueres 
zur bedingten Compilation steht weiter unten in diesem Text. 

Start von der Workbench: 

Beim Start des Compilers von der Workbench können die verschiede¬ 
nen Optionen nun über sogenannte Tool Types gesetzt bzw. gelöscht 
werden. Die Tool Types können mit Info im Workbench-Menü geän- ( 
dert werden. Dabei stehen folgende Tool Types zu Verfügung: 


STACKCHK 

-s 

OVFLCHK 

-V 

RANGECHK 

-b 

CASECHK 

-c 

RETURNCHK 

-r 

NILCHK 

-n 

ODDCHK 

-o 

TYPECHK 

~t 

AUTOREGPARS 

-P 
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SMALLCODE 

-m 

SMALLDATA 

-d 

MC68010 

-1 

MC68020 

-2 

MC68030 

-3 

MC68881 

-8 

ICONS 

-i 

DEBUG 

-g 


Die Optionen entsprechen direkt den Optionen, die auch beim Start 
vom CLI angegeben werden können. Die CLI-Optionen sind daher 
oben jeweils hinter ihrer Tool Type Entsprechung aufgelistet. 

Die bedingte Compilation: 


Amiga Oberon 2.0 erlaubt die sogenannte bedingte Compilation. Da¬ 
bei können bestimmte Teile des Quelltextes so markiert werden, daß 
sie nur beim Setzen bestimmter Optionen beim Compilieren beachtet 
werden. Dazu gibt es folgende neue Compileroptionen: 

$IF <Option> 

$IFNOT <Option> 

$ELSE 

$END 


Dabei steht <Option> für eine beliebige Zeichenkette die aus Buchsta¬ 
ben und Ziffern besteht. Diese Optionen können beim Start vom Com¬ 
piler mit "SET <Option>" gesetzt und mit "CLEAR <Option>" ge¬ 
löscht werden. Wird eine Option beim Start nicht angegeben, ist sie 
automatisch gelöscht. 

Kommt in einem Oberon-Quelltext in einem Kommentar "(* $IF 
<Option> *)" vor, werden die folgenden Anweisungen nur übersetzt, 
wenn <Option> beim Compilerstart gesetzt wurde. Durch "(* SEND 
*)" wird diese bedingte Codeerzeugung wieder aufgehoben. "(* 
SELSE *)" kehrt die letzte $IF-Anweisung um. "(* IFNOT <Option> 
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*)" bewirkt das Gegenteil von "(* $IF <Option> *)", nämlich daß die 
folgendenden Anweisungen beachtet werden, wenn <Option> nicht 
gesetzt ist. 

Beispiel: 

MODULE Test: 

IMPORT io; 

VAR String: ARRAY 80 OF CHAR; 

CONST 

(* $IF English *) 

hallo = "Hello!”; 
nochmal = "again?"; 

(* $ELSE *) 

hallo = "Halli hallo"; 
nochmal = "nochmal?”: 

(* $END *) 

BEGIN 

REPEAT 

io.WriteString(hallo); io.WriteLn; 
io.WriteString(nochmal); io.ReadString(string); 

(‘ $IFNOT English *) 

UNTIL (string#"ja") AND (string#"j''); 

(* $ELSE *) 

UNTIL (string#"yes") AND (string#”y"); 

(* $END *) 

END Test. 

Aus diesem kleinen Programm kann nun durch Neucompilation eine 
englische und eine deutsch Version erzeugt werden, ohne daß der 
Quelltext verändert wird: 
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Beim Start des Compilers mit 
Oberon SET English Test.mod 
wird eine englischsprachige Version erzeugt, während bei 
Oberon CLEAR English Test.mod 
oder einfach 
Oberon Test.mod 

ein deutschsprachiges Programm erzeugt wird. Auf diese Weise kön¬ 
nen auch verschiedene Versionen eines Programms, wie eine einge¬ 
schränkte Demo-Version und eine voll funktionsfähige Version, aus 
dem gleichen Quelltext nur durch Setzen bzw. Löschen von Optionen 
erzeugt werden. 

Das Modul MATHLIB: 

Wird in einem Programm viel mit LONGREAL-Zahlen gerechnet, 
kann die Geschwindigkeit durch Ausnutzung einer FPU stark verbes¬ 
sert werden. Dies geschieht durch Setzen der Compileroption ’-8’ 
bzw. des Tool Types ’MC68881=TRUE’. Dabei werden jedoch ledig¬ 
lich die Grundrechenarten und die Funktionen ABS() und ENTIER() 
in Befehle der FPU übersetzt. Die Prozessoren MC68881 bzw. 
MC68882 besitzen jedoch viele weitere Befehle, wie z.B. die trigono¬ 
metrischen Funktionen. 

Damit diese Befehle auch voll ausgenutzt werden können, existiert bei 
gesetzter Option ’-8’ ein compilerinternes Modul (ähnlich wie das 
Modul SYSTEM) mit dem Namen MATHLIB, das genau diese Funk¬ 
tionen enthält. Eine von ModToDef erzeugte Definition dieses Moduls 
würde folgendermaßen aussehen: 
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DEFINITION MATHLIB; 


PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 


ACOS 
ASIN 
ATAN 
ATANH 
COS 
COSH 
ETOX 
LOG 10 
LOG2 
LOGN 
SIN 
SINH 
SQR 
SQRT 
TAN 
TANH 
TENTOX (x 
TWOTOX (x 
INT (x 


LONGREAL): 

LONGREAL): 

LONGREAL): 

LONGREAL): 

LONGREAL): 

LONGREAL): 

LONGREAL): 

LONGREAL): 

LONGREAL): 

LONGREAL): 

LONGREAL): 

LONGREAL): 

LONGREAL): 

LONGREAL): 

LONGREAL): 

LONGREAL): 

LONGREAL): 

LONGREAL): 

LONGREAL): 


LONGREAL 

LONGREAL 

LONGREAL 

LONGREAL 

LONGREAL 

LONGREAL 

LONGREAL 

LONGREAL 

LONGREAL 

LONGREAL 

LONGREAL 

LONGREAL 

LONGREAL 

LONGREAL 

LONGREAL 

LONGREAL 

LONGREAL 

LONGREAL 

LONGREAL 


END MATHLIB. 


Die Funktionen berechnen dabei folgendes: 


SIN, COS, TAN 

sin(x), cos(x), tan(x) 

ASIN, ACOS, ATAN 

arcsin(x), arccos(x), arctan(x) 

SINH, COSH, TANH 

sinh(x), cosh(x), tanh(x) 

ATANH 

artanh(x) (Hyperbelfunktionen) 

TENTOX 

10 x 

TWOTOX 

2 X 

ETOX 

e x 

LOG 10 

logioW 

LOG2 

log 2 (x) 

LOGN 

In(x) 

SQR 

x 2 

SQRT 

x °.5 

INT 

ENTIER(x), für x>=0; 

-ENTIER(-x), für x<0 

Damit Programme, die 

das Modul MATHLIB benutzen, auch so com- 
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piliert werden können, daß sie ohne FPU lauffähig sind, wurde die 
Modulbibliothek um das gleichnamige Modul MATHLIB erweitert, 
das jedoch nicht compilerintern ist. Wird ein Programm ohne Ausnut¬ 
zung der FPU compiliert, wird dieses Modul automatisch importiert. 
Dieses MATHLIB-Modul ruft vor allem die Prozeduren des Moduls 
MathlEEEDoubTrans auf, es bringt also keinen Geschwindigkeits¬ 
vorteil. Dennoch wird empfohlen, MATHLIB zu verwenden, da nur so 
die volle Ausnutzung einer FPU möglich wird. 

Die Operatoren MOD und DIV: 

Amiga Oberon 1.17.1 hielt sich bei der Berechnung der Werte, die die 
Funktionen MOD und DIV bei negativen Operanden als Ergebnis 
liefern, an den Oberon-Report und nicht an den Revised Oberon- 
Report. Dies ist nun geändert. Es gilt: 

a = (a DIV b) * b + (a MOD b) 

0 <= (a MOD b) < b oder 0 >= (a MOD b) > b 

Erweiterbare STRUCTs: 

Mit dieser Compilerversion können STRUCTs, ähnlich wie dies bei 
RECORDs möglich ist, erweitert werden. Dazu kann bei der Defini¬ 
tion eines STRUCTs das erste Element, das auch ein STRUCT sein 
muß, in Klammern geschrieben werden. Durch diese Schreibweise 
wird die Hierarchie deutlich: Die neue Struktur erbt die Elemente und 
Eigenschaften der alten Struktur. Auf die Elemente muß jedoch, an¬ 
ders als bei RECORDs, über den Namen des ersten Elements zuge¬ 
griffen werden. 

STRUCTs sind zuweisungskompatibel zu ihren Basistypen. Zeiger auf 
STRUCTs können sowohl an ihre Basistypen als auch an ihre Erwei¬ 
terungen zugewiesen werden. Außerdem kann jetzt auch bei Zeigern 
auf STRUCTs der Typ mit Hilfe des Type-Guards oder mit der WITH- 
Anweisung auf den Typ einer Erweiterung gesetzt werden. Allerdings 
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kann der Compiler bei STRUCTs keinen Code erzeugen, der die Kor¬ 
rektheit des Typwechsels prüft. Entsprechend trägt auch bei Zuwei¬ 
sungen von Zeigern auf STRUCTs an Zeiger auf deren Erweiterungen 
der Programmierer die Verantwortung für die Korrektheit dieser 
Zuweisung. 

Beispiel: 

Im Amiga-Interface-Modul Exec ist eine Message und ein MsgPort 
nun eine Erweiterung einer Node. Diese Typen werden daher folgen¬ 
dermaßen definiert: 

TYPE 

MsgPort * = STRUCT (node * : Node) 
flags * : SHORTINT; 
sigBit * : SHORTINT; 
sigTask * : TaskPtr; 
msgList * : List; 

END; 

Message * = STRUCT (node * : Node) 
replyPort * : MsgPortPtr; 
length * : INTEGER; 

END; 

In einem Programm kann man nun z.B. die Länge der ersten an einem 
Port wartenden Message folgendermaßen abffagen: 

VAR 

port: Exec.MsgPortPtr; 

len: INTEGER; 

BEGIN 

IF ~ ExecSupport.ListEmpty(port.msgList) THEN 
len := port.msgList.first.head(Message).length; 

END; 

END; 
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Enstsprechend sind nun viele Strukturen in den Amiga-Interface- 
Modulen Erweiterungen anderer Strukturen, so daß man meist ohne 
die Funktion sys.VAL() auskommt. Dennoch sollte man sich immer 
vergewissern, ob ein STRUCT wirklich erweitert und ein Zugriff auf 
die Elemente der Erweiterung legal ist. 

Listenparameter: 


Das AmigaOS 2.0 kennt eine Reihe von Prozeduren, die beliebig lan¬ 
ge Listen von Parametern erwarten. Damit mit diesen Prozeduren ein¬ 
fach und sauber auch in Oberon gearbeitet werden kann, mußte die 
Syntax bei der Deklaration und beim Aufruf solcher Prozeduren leicht 
verändert werden. 

Beispiel: 

Die Prozedur AllocAslRequestTags der asl.library des AmigaOS 2.0 
bekommt eine beliebig lange sogenannte Tag-Liste als letzten 
Parameter. Bei der Deklaration dieser Prozedur im Modul ASL wird 
sie daher folgendermaßen deklariert: 

PROCEDURE AllocAslRequestTags*{asl,-48}( 
type{0}: LONGINT; 
tag1{8}..: Utility.Tag): e.APTR; 

Der Listenparameter wird mit 2 Punkten hinter dem Parametemamen 
und hinter dem Register markiert. Es muß der letzte Parameter und ein 
Registerparameter sein. Normale Oberon-Prozeduren können keine 
Listenparameter verarbeiten, da dies von der Sprache nicht vorgese¬ 
hen ist. 

AllocAslRequestTags kann nun mit beliebig vielen Tags als Parameter 
aufgerufen werden: 
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fileReq = asl.AllocAslRequestTags(asl.fileRequest, 


asI.leftEdge, 

20, 

asI.topEdge, 

20, 

asl.width, 

300, 

asl.height, 

200, 

Utility.done); 



Einschränkungen: 

Die Liste der Listenparameter darf maximal 512 Bytes Speicher 
belegen. Dies sollte für die meisten Anwendungen genügen. 

Innerhalb der Listenparameter dürfen keine Prozeduraufrufe, außer 
Aufrufe von Standardprozeduren, Vorkommen. Soll das Ergebnis einer 
Prozedur als einer der Parameter übergeben werden, muß die Prozedur 
daher vorher aufgerufen und ihr Ergebnis in einer Variablen zwischen¬ 
gespeichert werden. 

Registerparameter: 


Der Amiga Oberon Compiler erzeugt mit dieser Version automatisch 
Registerparameter, wo dies sinnvoll und nötig ist. Registerparameter 
kann man jedoch auch durch Angabe der Registemummer hinter dem 
Parametemamen in geschweiften Klammern erzwingen. Die Register 
DO bis D7 haben dabei die Nummern 0 bis 7, A0 bis A7 die Nummern 
8 bis 15. Wenn Code für die FPU erzeugt wird, können auch die FPU- 
Register FPO bis FP7 mit den Nummern 16 bis 23 verwendet werden. 

Mit dieser Compilerversion sind so erzwungene Registerparameter, 
mit der Ausnahme DO und Dl, vom Überschreiben geschützt. Es muß 
also keine Kopie der Registervariablen mehr erzeugt werden. Dies ist 
vor allem beim Schreiben von Amiga-Libraries wichtig. Lediglich DO 
und Dl müssen weiterhin vorsichtig gehandhabt werden. 
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Da der Compiler die Register A5 bis A7 für besondere Zwecke vorge¬ 
sehen hat, dürfen diese auch nicht zur Übergabe von Registerparame- 
tem verwendet werden. 

Die Prozeduren REG() und SETREG() aus dem compilerintemen Mo¬ 
dul SYSTEM akzeptieren nun auch die Registemummem 16 bis 23, 
wenn mit Option ’-8’ compiliert wird. 

Compileroptionen: 

Es gibt eine neue stapelbare Compileroption "$AutoRegPars". Die 
Voreinstellung ist Mit dieser Option kann für einzelne Prozeduren 
oder Teile eines Programms die automatische Verwendung von Regi- 
sterparametem und Registervariablen abgeschaltet werden. Dies wird 
z.B. nötig, wenn man die Adresse einer Variablen mit 
SYSTEM.ADR() bestimmen möchte, was bei Registervariablen nicht 
möglich ist und zu der Fehlermeldung 'Adresse nicht ladbar’ führt. 
Bei manchen Prozeduren, die viele andere Prozeduren aufrufen, kann 
es auch sinnvoll sein, keine Registervariablen zu verwenden, da der 
Aufwand beim Speichern und Wiederholen der Variablenwerte vor 
und nach Prozeduraufrufen zu groß ist. 

Die neue stapelbare Compileroption $Debug ist nur im Zusammen¬ 
hang mit dem Debugger ODebug wichtig und wird daher in der Anlei¬ 
tung zum Debugger beschrieben. 

Symboldateien: 

Durch die Änderungen an der Sprache hat sich das Format der Sym¬ 
boldateien geändert. Daher müssen alle mit Oberon 1.17.1 compilier- 
ten Module neu compiliert werden. Es ist dabei am besten, vorher alle 
alten Symboldateien zu löschen. 
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Änderungen am Editor: 
Start vom CLI: 


Beim Start von OEd vom CLI aus können nun die Compiler-Optionen 
vorbelegt werden. Die Aufrufsyntax wurde dazu folgendermaßen 
geändert: 

OEd {-{ilt#lx#ly#lw#lh#ld#lsll}} 

[c- {slvlblclrlnltlmldl 11213181g}] 

{<Text>} 

Mit ’c-...’ können die Optionen, die beim Start des Compilers verwen¬ 
det werden sollen, vorbelegt werden. Die Bedeutung der einzelnen 
Buchstaben entspricht der beim Start des Compilers. 

Start von der Workbench: 

Die Compileroptionen können beim Start von der Workbench- 
Oberfläche aus nun mit Hilfe von Tool Types gesetzt werden. Die Na¬ 
men der Tool Types entsprechen dabei denen der Tool Types des 
Compilers selbst. 

Die OEd-Fenster: 

Am rechten Rand der von OEd geöffneten Fenster befindet sich nun 
ein Scroll-Gadget, mit dem man sich schnell durch den Text bewegen 
kann und leicht die Position des im Augenblick angezeigten Textteils 
im Gesamttext sieht. 

Mit den Pfeilen unter dem Scroll-Gadget kann man sich seitenweise 
durch den Text bewegen, wie es auch mit <Alt> und den Pfeiltasten 
möglich ist. 
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Find / Replace: 

Die Funktionen zum Suchen- und Ersetzen im Text wurden stark 
überarbeitet. Wählt man Find im Search- Menü, wird ein Fenster mit 
mehreren Gadgets geöffnet. In das aktive Text-Gadget kann eine 
Zeichenkette, nach der gesucht werden soll, eingegeben werden. 

Mit den drei Gadgets darunter kann gewählt werden, wie nach der 
Zeichenkette gesucht werden soll. Das erste Gadget wählt, ob zwi¬ 
schen Groß- und Kleinschreibung unterschieden werden soll (’Case- 
Sensitive’) oder ob Groß- und Kleinbuchstaben als gleich betrachtet 
werden sollen ('nicht Case-Sens.’). Das nächste Gadget wählt die 
Richtung, in der der Text durchsucht werden soll, 'vorwärts’ steht da¬ 
bei für rechts und unterhalb des Cursors, 'rückwärts' für links und 
oberhalb des Cursors. Das letzte Gadget wählt, ob zeichenweise oder 
wortweise gesucht werden soll. Beim wortweisen Suchen werden 
Zeichenketten, die in einem längeren Wort enthalten sind (wie z.B. 
'Buch' in 'Kleinbuchstaben' bei nicht Case-sensitivem Suchen) nicht 
gefunden. Beim wortweisen Suchen kann nur nach Buchstaben und 
Ziffern gesucht werden, da alle andere Zeichen als Separatoren zwi¬ 
schen Wörtern angesehen werden. 

Mit den 2 Gadgets am unteren Rand des Fenster kann das Suchen ge¬ 
startet (’ok’), oder der Vorgang abgebrochen ('Abbruch') werden. 

Wählt man FindRep im Search- Menü, wird ein Fenster mit 2 Text- 
Gadgets geöffnet. In das erste Gadget muß der Text, nach dem gesucht 
werden soll, und in das zweite der Text, durch den der erste Text er¬ 
setzt werden soll, eingegeben werden. 

Unter den Text-Gadgets befinden sich vier weitere Gadgets. Die er¬ 
sten drei dieser Gadgets entsprechen denen bei Find und haben die 
gleiche Bedeutung. Das letzte Gadget wählt, ob nur einmal das näch¬ 
ste Vorkommen des Such-Textes ersetzt werden soll ('einzeln'), oder 
ob der gesamte Text durchgegangen werden soll ('alle'). 
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Ist 'alle’ gewählt, wird jede gefunde Zeichenkette einzeln angezeigt 
und dabei ein Fenster mit vier Gadgets geöffnet. Durch Anklicken ei¬ 
nes der Gadgets kann man wählen, was geschehen soll: ’ja!’ ersetzt 
den Text durch den vorhin eingegebenen Ersatz-Text, ’nein!’ läßt den 
Text unverändert und sucht nach dem nächsten Vorkommen des Such- 
Textes. ’alle’ ersetzt alle weiteren Vorkommen des Such-Textes, ohne 
weiter nachzufragen. ’Cancel’ bricht den Vorgang ab. Statt eines der 
vier Gadgets anzuklicken, kann auch einfach der Anfangsbuchstabe 
der gewünchsten Funktion eingetippt werden, also ’j’, ’n’, ’a’ oder ’c’. 

Eigener Screen: 

Soll OEd einen eigenen Screen öffnen und arbeitet man unter Ami- 
gaOS 2.0, wird ein sogenannter Public-Screen mit dem Namen 
’Oberon Screen’ geöffnet. Auf diesem Screen können noch weitere 
Programme ihre Fenster öffnen. So öffnet z.B. ein später gestarteter 
OEd seine Fenster auf diesem Screen, und öffnet keinen neuen 
Screen. Gleichermaßen wird dieser Screen von dem Debugger ODe- 
bug verwendet. 

Options-Menü: 

Das Options-Menü wurde um folgende Menüpunkte erweitert: 

mc68010, mc68020 und mc68030: 

Diese Optionen wählen die Codeoptimierung für die Prozessoren 
MC68010, MC68020 bzw. MC68030. Ist keiner der Prozessoren 
angewählt, wird Code für den MC68000 erzeugt. Dies Entspricht den 
Compileroptionen ’-l’, ’-2’ und ’-3\ 

mc68881: 

Sollen die Befehle der FPU MC68881 bzw. MC68882 ausgenutzt 
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werden, muß diese Option angewählt sein. Dieser Menüpunkt ent¬ 
spricht der Compileroption ’-8\ 

Debug: 

Diese Option entspricht ’-g’ beim Start des Compilers vom CLI. Sie 
wird erst im Zusammenhang mit dem Debugger wichtig. 

Die Modulbibliothek: 

FileSystem: 


Dieses Modul kennt eine neue Funktion: 

PROCEDURE OpenReadWrite(VAR file: File; 

name: ARRAY OF CHAR): BOOLEAN; 

Es wird die bereits existierende Datei mit dem Namen name zum ge¬ 
mischten schreibenden und lesenden Zugriff geöffnet. Existiert name 
noch nicht, wird eine neue Datei erzeugt. 

Display: 


Auch das Modul Display wurde um ein Prozedur ergänzt: 

PROCEDURE OpenWindowX*(win: WindowPtr; 
gadg: I.GadgetPtr; 
gzz: BOOLEAN; 
title: ARRAY OF CHAR; 
x,y,w,h: INTEGER; 
screen: I.ScreenPtr; 
activate: BOOLEAN): BOOLEAN; 

Diese Prozedur ermöglicht das Öffnen eines Fensters wie Dis- 
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play.OpenWindow(), es können jedoch mehr Parameter selbst defi¬ 
niert werden, gadg ist eine optionale Liste von Gadgets, die das Fen¬ 
ster bekommen soll. 

gzz gibt an, ob ein Gimme-Zero-Zero-Fenster geöffnet werden soll. 
Dies ist bei allen mit Display.OpenWindow() geöffneten Fenstern der 
Fall. Diese Fenster haben den Vorteil, daß man auch über den Rand 
des Innenbereichs des Fensters hinaus zeichnen kann, ohne den Rah¬ 
men des Fensters zu zerstören. Das Gezeichnete wird ’geclippt’, das 
heißt, am Rand abgeschnitten. Nachteil dieser Fenster ist, daß sie 
mehr Speicher benötigen und mehr Rechenzeit verbrauchen. Ist man 
sicher, daß man nur im inneren Bereich des Fenster zeichnet, kann 
man gzz auf FALSE setzen. Das Modul Display übernimmt aber auch 
dann die Umrechnung der Koordinaten, so daß der Punkt (0/0) in der 
linken oberen Ecke des inneren Bereichs des Fensters liegt. 

Die Interface-Module: 

Die Interface-Module für das Amiga-Betriebssystem wurden völlig 
überarbeitet. Sie entsprechen nun den C-Include-Dateien des Ami- 
gaOS 2.0. Wer diese Version des AmigaOS installiert hat, kann auf die 
hier neu hinzugekommenen Funktionen zugreifen. 

Die Interface-Module für Amiga-Libraries, die es auch unter Ami¬ 
gaOS 1.2 und 1.3 bereits gab, öffnen die Libraries automatisch mit der 
unter 1.2 gültigen Versionsnummer (33). Die Prozeduren, die mit dem 
AmigaOS 2.0 hinzugekommen sind, sind in den Modulen durch einen 
Kommentar gekennzeichnet. Sie dürfen nur verwendet werden, nach¬ 
dem man die Versionsnummer der Library geprüft hat. Die Version 
muß mindestens 36 sein. 

Beispiel: 

MODULE Test; 

IMPORT Intuition; 
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VAR window: Intuition.WindowPtr; 

BEGIN 

IF lntuition.libNode.version<36 THEN 
io.WriteStringC'Kauf Dir ’nen A3000!\n"); HALT(20); 

ELSE 

window := I.OpenWindowTags(nw); 

END; 

CLOSE 

IF window#NILTHEN I.CIoseWindow(window) END; 

END Test. 

Diese Versionsüberprüfung ist bei den Libraries ASL, Commodities, 
GadTools, IFFParse und Utility nicht nötig. Da diese Libraries erst ab 
AmigaOS 2.0 existieren, werden sie gleich mit Versionsnummer 36 
geöffnet. Utility überprüft jedoch nicht, ob das Öffnen erfolgreich 
war, da Utility z.B. von Dos importiert wird und somit alle Programe, 
die Dos importieren, nicht mehr unter AmigaOS 1.3 lauffahig wären. 
Vor der Verwendung von Prozeduren aus Utility muß also geprüft 
werden, ob Utility.base#NIL ist. 

Manche Prozeduren haben mit AmigaOS 2.0 Ergebnisse bekommen, 
die sie unter 1.3 nicht hatten. So gibt z.B. Intuition.CloseScreen() nun 
ein BOOLEAN zurück. Für die wichtigsten dieser Prozeduren existie¬ 
ren Synonyme ohne Ergebnis, die mit ’Old’ vorne im Namen gekenn¬ 
zeichnet sind. So kann Intuition.OldCloseScreenO verwendet werden, 
wenn man das Ergebnis ignorieren möchte. 

Andere Änderungen an den Modulen wurden vorgenommen, damit 
diese eher ihren C-Äquivalenten entsprechen. So gibt es das Modul 
Resources nicht mehr. Es wurde in die Module Disk, Mise und Potgo 
aufgespalten. Die Module Printer und PrtBase wurden in dem Modul 
Printer zusammengefaßt. Eine weitere Änderung, die evtl, zu Verwir¬ 
rung führen kann, sind die Interrupt-Flags, die nicht mehr in Exec, 
sondern nun, wie bei den Original-Include-Dateien, in Hardware defi¬ 
niert werden. 
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Die portName- und taskName -Parameter der Prozeduren CreatePort() 
und CreateTask() aus ExecSupport haben nun ARRAY OF CHAR- 
Parameter, und verlangen nicht mehr die Adresse der Zeichenketten. 
Um einen namenlosen nicht öffentlichen Port zu erzeugen, ruft man 
ExecSupport.CreatePort mit einem leeren String als Portname auf. 

Bei anderen kleineren Änderungen in den Modulen hilft meist ein kur¬ 
zer Blick in die Quelltexte der Module. Die Module enthalten nun 
sehr viel mehr Kommentare, so daß man mit ihnen einfacher arbeiten 
kann. 
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